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Open Channel 


Readers’ letters from across the land. 


Next Month 
What to look for in the June edition. 


Psion Probe 


Your questions answered by Psion’s 
Head of Software Support. 


Terminal Emulator 


The first crude emulation facility 
emerges. 


Hardware on the Horizon 


First CST’s Q-Disk from Computa- 
mate, then a comparable device deli- 
vered by MicroPeripherals, now the 
long-awaited Quest Executive drives 
... were they worth the wait? 
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Computer One Monitor 


Another in their series of professional 
software packages. 


Alon the QL 


Not the usual run-of-the-mill mono- 

logue about esoteric concepts, but a 

practical approach to artificial intelli- 

gence as made possible by the QL. 
Be 
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Categorical Computing 
Pick four attributes for a new compu- 
ter language and you could win some 
professional software. 


Review 7 40 
QL Toolkit 


A comprehensive package of extra 
commands and essential utilities 
from Tony Tebby. 


Programs 42 
‘The Progs’ 


More readers’ programs including 
the penultimate part of our DIY 
Assembler. 
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News Badkeround 


The stories behind the news and 
background to what's happening 


within the QL marketplace. 


User Group News 
Our regular forum for the indepen- 
dent users’ group. 
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The mysteries of machine 
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animation expounded by example. 
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Bookmarks 


Casting the net wide this month, to 
include texts on C and related topics. 


Machine Code Tutorial 


A short summary, for May, to com- 
plete the first section. 
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Cash Trader 


High quality software is now emerg- 
ing for the QL and this small business 
package is a prime example. 


Readers Service 60 
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Software from the magazine trans- 
ferred to microdrive. 


Information 60 
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Indispensable glossary of useful info. 
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First, fuse together your Sinclair QL with QL/APL. 
Immediately you've expanded your QL’s potential to the 
maximum. 


The unique QL/APL programming language frees you 
from the constraints of loops and endlessly long programs. 
QU/APL lets the computer cope effortlessly with data types and 
numeric precision and all that technical stuff. Leaving you free to 
get your QL to work for you, not against you. 


QU/APL is easy to work with, so it’s simple to write your 
own applications. 

QUAPL is modular, so you can build up systems 
step-by-step. 

QL/APL is interpreted, so changes can be made and 
tested immediately. 


QLU/APL is incredibly powerful, so you never come up against | 


annoying limitations. It’s the key to taking advantage of the full 
32-bit power of the QL’s 68008 processor. It runs on the standard 
QL keyboard, and allows full access to QL 

colour graphics and windows. And it’s built 

around MicroAPL’s highly- respected IBM- 

compatible implementation of the APL 

language — in fact APL was originally 

developed by IBM for its mainframes. 


A software pedigree you can trust implicitly. 


Remember, for OL, read OL/APL. 
And blow the rest 
Ronettes 


87 Kirtling Street, London SW8 5BP. i 
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Whatever Will Be... 


Sinclair’s MD Nigel Searle has 
promised to ensure that the 
QL’s QCOM 
telecommunication device will 
reach the market — despite the 
receivership of its 
manufacturer, OE Ltd. 

“Whatever happens to OF as 
acompany, those products will 
still be available to QL owners 
— whether Sinclair will buy 
stocks from OF, if they exist, 
and sell them, whether Sinclair 
will buy a license to produce 
those products, or whether 
Sinclair will act as an honest 
broker and ensure that some 
third party acquires a license 
to produce them. 

“They are a valuable asset to 
the QL, and I’m certain that we 
can find a way to get them 
produced.” 

OE boss Martin Ansell said 
that the receivers had been 
called after his company had 
received “an unmeetable bill’ 
from chief shareholders 
Warburtons the bankers. He 
hoped that OE would be sold as 
a going concern, rather than 
split into occasionally 
intangible assets like QCOM. 

At the time of writing, the 
future of OE has yet to be 
decided, though at least one 
large concern (not Sinclair 
Research!) has told us ofits 
interest. 


The ill-fated OEL modem. 


Hard hitting news from QL User’s bullish 


investigative reporter, Sid Smith. 


Further proof of the 
importance which Sinclair 
attribute to QCOM is supplied, 
not merely by its prominence 
in their glossy advertising 
supplements, but also by what 
sounds like an underwriting of 
its production costs. 

According to Searle, “We 
had a contract with OE which 
put Sinclair in a position where 
we were obliged to promote 
these products and in effect to 
guarantee certain minimum 
sales, and we’d be willing to 
make a similar contractual 
arrangement with some other 
company that took over those 
products.” 

As reported last month, 
some QL users have been 
waiting since late November 
for their QCOM orders to be 
filled— OE having cashed 
their cheques on receipt. 

The position of these 
unfortunates now looks even 
gloomier. 


Pascal Perfidy 


Following copious two-way 
correspondence with 
Computer One, it seems that 
we may have been a little over 
zealous in our review of their 
Pascal. 

The purist’s approach — it 
either is, or it isn’t standard 
Pascal—is a mite pedantic 
where certain useful 
extensions have been included 
(as with Computer One’s). 

Suffice it to say that our 
points were aimed at the 
language in general, not to any 
particular version, and that all 
comments of this nature are 
likely to be coloured by the 
reviewer's favourite language 
at the time. 


Attack On Atari 


“Clive Sinclair doesn’t think 
you'll produce the Atari ST on 
time,” your reporter told Jack 
Tramiel. 

Replied the bullfrog-like 
Atari boss, “Who?” 

Once we’d got past this too- 
familiar Tramiel joke (he even 
professes ignorance of 
Commodore, the company he 
steered to fortune and then 
left), it turned out that 
Sinclair, and even QL, were 
names he had come accross 
before. 

No, he wasn’t worried about 
competition from the QL, 
which was “a terrific machine 
when it was launched, but out 
of date by the time it 
appeared”. 

He didn’t want to criticise Sir 
Clive (“In case I ever run into 
him in a Cambridge pub”), but 
nobody had heard of the QL in 
the States, and “from what I 
understand it hasn’t been 
tremendously successful here 
in England”. 

Confronted with this 
Tramiel-talk, Sir Clive was 
equally agressive. “I bet youa 
hundred quid to ten that the 
ST won’t appear on time. Nota 
chance. When Tramiel 
announced the machine in Las 
Vegas he said he needed 
$180m to develop it— and he 
hasn’t raised a penny.” 

“In any case,” continued 
Clive, “the GEM software 
(Digital Research’s Macintosh- 
style user interface, to be 
employed in the ST) won’t be 
available till late this year, so 
the Atari machine can’t appear 
before then.” 


The much-publicised Atari 520 ST. 


Lots of people, we suggested, 
assumed thatifthe ST 
appeared, it would kill all 
possibility of selling the QLin 
the States. 

“But why? The ST hasn’t 
even appeared yet, it has no 
software, and it doesn’t have 
drives built in. No, my bet is 
that we'll launch the QL in the 
States long before the ST 
appears and it'll sell in large 
numbers. 

“T don’t think the ST will 
appear at all. Jack’s a great 
guy, but he’s a little prone to 
announcing products before 
they’re ready — perhaps like 
some of the rest of us— and this 
time he’s exceeded himself. I 
don’t think he’s got the means 
to produce that product.” 


ROM Deal 

The mystery of the JS ROM 
(see our last issue) seems to be 
solved; the new firmware, 
along with its extra 
SuperBasic commands, was all 
amistake. 

JS was only ever shipped toa 
handful of people, all of them 
previous owners returning 
faulty QLs for repairs. 

Ina commendable desire to 
speed up turn-round, the 
company — as usual — replaced 
rather than repaired the faulty 
machines. On this occasion, 
however, despatch clerks 
managed to ship QLs being 
used to test a development 
operating system, code-named 
JS 


Sinclair are very shy about . 
the affair, but we understand 
that no new version of QDOS is 
expected for several months. 
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THE PERFECT 
PARTNERSHIP 


This Cub medium resolu- 
tion colour monitor is TOTALLY 
compatible with the Sinclair Ob. 

It combines outstanding 
graphics capabilities with the 
facility for displaying full 85 
column text whilst doing full 
justice to the colour potential 
of the QL. Its new cabinet 
with Tilt and Swivel Plinth 
harmonises perfectly with the 
QL’s simple. yet functional 


appearance. 


_ Best of all, a price of only 


= ) , Inc VAT 


(inc. Tilt and Swivel Plinth) 
and VAT keeps your bank 
balance in the black too. | 
SPECIFICATION 

Model — CUB 1451/DQ3 © 

147 Ok monitor 
RGB/TTL input 
Tube Resolution (pixels) 653 (H) 
Pitch — 0.43 mm 
Bandwidth — 18 MHz 


Antiglare CRT 


Way, Bolling Road, 
shire BD4 7TU. 
500. Telex:517717 


CON UTER RETAILERS AND BRANCHES OF W. H. SMITH. BOOTS, J 


One year on and a QL dilemma — strive for 
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PHOTO ROB BRIMSON — MODEL BY MIKE POPE 


uch has been written and said 
about the near hysteria that 
swept through the ranks of 
normally cycnical journalists at the 
original launch of the QL over a year 
ago. Articles predicting the downfall 
of IBM were hastily penned. Shares 
in ACT would have been sold if your 
average hack had been rich enough 
to own any in the first place. It even 
got to the stage where magazines 
were launched. 
| Shortly afterwards came the 
equally dramatic backlash, made all 
the worse by the degree to which the 
original coverage went over the top. 
The QL failed to appear for some 
considerable time and even when it 
did finally see the light of day the 
results were far removed from what 
we had seen at the grand launch. A 
certain degree of terminological inex- 
actitude on Sinclair Research’s part 
was suspected. Consequently the 
£400 chocolate bar lost a large degree 
of street credibility and was declared 
by the pundits (very few of whom, it 
should be noted, had actually used 
the thing) as not possessing ‘the right 
stuff to be a hard-nosed serious 
machine suitable for hard-nosed se- 
rious applications. 

This identity crisis was not helped 
by Sinclair’s rival manufacturers. 
For the next three months, anyone 
who launched any kind of computer 
was asked “What do you think of the 
QL”. The home computer people re- 
plied that the QL was not in their 
market — it was clearly a business 
machine, look at the software they 
supply, and anyway we don’t regard 
it as competition. Trained observers 
could usually detect a slight quicken- 
ing of the pulse and glistening of the 
speaker’s brow at this stage. The 
business people took the same atti- 
tude in reverse. “The QL is a very 
nice little machine”, they said. “?’m 
thinking of getting one for the kids to 
play with. Meanwhile, would you 
care to examine our new machine, 
with real disk drives, available ex- 
stock from our dealer network?” 

Over a year after customer deliver- 
ies started, the QL is still a difficult 
machine to position in the micro- 
computer market. In a similar kind of 
price range are machines like the 
BBC Micro and the Amstrad 
CPC464, whereas in terms of raw 
horsepower and potential for soph- 
isticated applications software the 
alternatives have to be drawn from 
much further up-market. 


Private Investigations 


Finding equivalents to the QL’s four 
Psion programs is easy enough — a 
slightly souped up version called 
Xchange is available for the IBM PC 
and ACT Apricot among other Intel 
8086/8088 based MS-DOS machines. 
However, these micros are perceived 
as being in a different class to the QL 
— whether or not they should be is a 


question we will come to shortly. 

Finding out where the QL is really 
intended to be in the market and who 
the target buyer is, is not easy. No- 
one will say anything definite, 
perhaps because they are frightened 
of restricting the machine’s appeal by 
putting it in a pigeon-hole. If, howev- 
er, you get a Sinclair Research 
spokesman, a big-time QL software 
developer or a typical press pundit in 
a quiet corner and threaten him with 
a very large stick, you might just get 
some comments about “home profes- 
sional” users. 

The home professional user is a 
semi-mythical creature like the Loch 
Ness Monster or Bigfoot — no-one is 
sure if he exists or not and since there 
are no specimens in captivity little if 
anything is known about his compu- 
ter needs. Some independent obser- 
vers claim that the home professional 
user is a creation of overimaginative 
marketing executives, the product of 
wishful thinking from home compu- 
ter manufacturers whose market has 
inconveneintly stopped doubling 
once a fortnight. 

Others believe that the creature 


does exist, but is an endangered 
species, trapped between the sparse 
pickings of the BBC Micro and the 
vast admission fee to the lush IBM 
PC meadow. 

Are there large numbers of people 
who want to do serious things with 
computers in the comfort and privacy 
of their own homes? Probably. If you 
look at the Spectrum software charts, 
one of the most consistent sellers is a 
word processor, Tasword Two. Tas- 
word does the best it can, but you 
can’t get very far with a Spectrum as 
a word processor. Still, the demand is 
obviously there, even among users of 
the most games-orientated compu- 
ters. The QL, of course, has a high 
quality word processor thrown in 
free, but among the business prog- 
rams shown to the press by indepen- 
dent software vendors a few weeks 
ago were several more specialised 
business programs which first 
appeared on machines like the Am- 


business status or dominate the home market. ‘Times’ columnist, Simon Craven, assesses developing trends. 


strad and the BBC, and in some cases 
even the Spectrum! 

The QL is well suited as a home 
professional machine, and to judge by 
the expansion systems, peripherals 
and software becoming available, it is 
this role which attracts most of the 
third party manufacturers with an 
eye on the QL bandwagon. With this 
in mind, it can be seen as a threat to 
an enormous range of different 
machines, and it is interesting to 
examine six of the best, to see how 
they stack up against the Cambridge 
Conundrum. 


Six Of The Best 


At the lower end of the comparison 
are two successful home micros 
which have grown up into useful 
systems from fairly humble roots. 
The BBC Micro and Amstrad 
CPC464 are both eight-bit machines, 
with the 6502 and Z80 processors 
respectively. 

These processors have only 
sixteen-bit address busses which in- 
evitably limit the amount of RAM 
which can be used. Although clever 
bank-switching techniques now 


allow the use of more than 64K, with 
screen RAM in a separate area and 
the ROM overlaid on to RAM only 
when needed, it is still impractical to 
try to use more than 64K for any one 
program. 

Being Z80 based, and blessed with 
a reasonably user-friendly manufac- 
turer, the Amstrad has recently 
sprouted the CP/M operating system 
for use with its compact 3” disk drive, 
and a reasonable amount of CP/M 
software has already been ported 
over. Don’t think, however, that you 
will be able to run anything in the 
(admittedly huge) CP/M software 
world, though. Apart from the prob- 
lem of buying the stuff on the right 
disk format, the Amstad under CP/M 
has a smaller TPA (transient prog- 
ram area) than many other machines 
and a number of programs run short 
of elbow room as a result. 

The QL comes next in the lineup — 
naturally this isa known quantity for 
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BUSINESS 


OR PLEASURE? 


most readers, but in this context it is 
worth noting that the nice thing 
about sixteen-bit processors isn’t the 
speed, it’s the amount of memory 
which can be accessed directly. This 
is especially true when running busi- 
ness style programs, in which case 
the limiting factor on the time taken 
to finish a job is not the speed of the 
processor but the speed of input and 
output (including to and from mass 
storage devices). 

The relative unimportance of pro- 
cessing speed enabled Sinclair to use 
a low-cost solution with the 68008 
member of the 68000 family, along 
with eight-bit supporting 
architecture. 

Slightly further up-market we 
have the Apple IIc, an interesting 
device which represents the nearest 
thing in computer terms to progress 
through evolution rather than re- 
volution. The Apple II was one of the 
first three practical desktop micros 
built, it has been kept reasonably fit 
with regular injections of monkey 
glands. The IIc is a 6502-based 
machine — no need to poke fun just 
because of that — with 128K in two 
banks of 64K which are switched in 
such a way as to make them fairly 
transparent.to the non-programming 
user. The best use is probably as a 
data storage area to keep down use of 
the rather arthritic disk drive. 

Like the QL, the Apple IIc is 
semi-portable. It is highly compact, 
with the mass storage built into the 
keyboard unit, and the recommended 
monitor is small enough to carry 
around in the other hand (try that 
with your Vision QL!) The operating 
system is Apple’s own PRODOS, 
which runs most existing Apple soft- 
ware written under Apple DOS 3.3. 

A bit more potent in terms of 
showroom appeal is another Apple 
machine, the Macintosh. QL apart, 
the Mac is the only 68000-based 
machine available at less than the 
price of a fairly reasonable car, at 
least until such time as Atari and/or 
Commodore actually turn words into 
deeds and put their low-cost 68K 
systems on sale. 

The QL and the Mac are similar in 
other ways. Apple and Sinclair share 
a feel for bold design and an.ability to 
guess what the potential buyer 
wants. Neither sets much (if any) 
store by industry stan. 1s, prefer- 
ring to go their own way 1 they can 
see how to speed up a process here or 
save a buck there. The Mac goes 
completely outside normal conven- 
tions with its graphics-based user 
interface, and runs no recognised 
operating system — it just is. 

Rounding off, we have two compu- 
ters built around the Intel 8086/8088 
chip, both running MS-DOS, or if you 
prefer, CP/M-86. That’s where the 
similarities end between the Sanyo 
MBC550 and the ACT Apricot F1. 
The Apricot is an idiosyncratic design 
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job, with a built-in trendy 3/2” disk 
drive and a fancy infra-red keyboard, 
whereas the Sanyo is a thoroughly 
conventional machine looking like an 
IBM PC on the Scarsdale Diet. 


Ergonomics And Design 


It is surprising how many computers 
would qualify for consideration as 
home/professional machines if they 
were improved in just two areas, 
mass storage and ergonomics. For 
any kind of serious use, the cassette 
recorder is out of the question, and if 
you are going to spend all day looking 
at a screen, that old standby the 14” 
colour portable is going to have to 
give way to something which will 
display reasonable 80-column text. 
Similarly, there is little joy to be had 
by spending hours on end typing on a 
keyboard which feels as if the keys 
are mounted on suet. 

The QL has recently been im- 
proved in all these areas. The latest 
keyboards are reasonable, though 
still subject to personal taste. There 
are plenty of high quality RGB moni- 
tors, of which the official version is 


The BBC B complete with key designation strip. 
Apple’s latest IIc, with second drive, mouse and 
display (below). 

Amstrad’s CPC464 and lone monitor (far right). 


probably the best, and the mass 
storage question has been answered 
by the CST floppy disk interface 
amongst others. The speed increase 
brought about by connecting a pair of 
disk drives to the QL is remarkable — 
Quill overlays load almost instantly, 
program compilation time is halved 
and that irritating feeling of ‘waiting 
for the computer’ disappears. You 
can hang any BBC Micro disk drive 
on to the CST unit, and perhaps the 
best choice would be a pair of the 314” 
Sony type. 

Microdrives should not be ignored, 
however — the first units to come on 
the market were in some cases unre- 
liable, but newer machines are faster 
and reliability no longer seems to bea 
problem. Incidentally, asked about 


the plight of owners of early 
machines, Sir Clive recently said that 
any QL owner who was unhappy with 
the reliability of the microdrives 
would have them brought up to 
scratch if they returned the machine. 

The BBC Micro itself is well ca- 
tered for by third-party peripheral 
manufacturers. Disk units in the 
range of 100K to 800K capacity are 
readily available, though they don’t 
come cheap. With separate RGB and 
composite video outlets, the BBC is 
easy to connect to monitors. For 
all-round excellence, an expensive 
RGB type is the only viable option, at 
over £300, but if like most users you 
only need colour when playing 
games, the most economical way to 
upgrade is with a monochrome moni- 


tor costing about £90. Use the TV for 
games. A monochrome monitor is 
inherently less tiring to look at, and 
even the very best colour displays will 
be hard pressed to produce text of 
equal quality. 

Incidentally, the BBC’s chronic 
memory shortage means that unless 
you have a Z80 or 6502 second 
processor you won't be looking at an 
80 column display very often. Most 
software (including word processors) 
is configured to use a 40 column 
display as standard. 

The Amstrad’s remarkable price 
includes a colour RGB monitor in the 


£349 package, or a monochrome 
alternative in the £249 deal. Since 
the CPC464 keeps its video RAM ina 
separate cache, the 80 x 24 display 
vital for CP/M software is available 
without any drawbacks. Unfortu- 
nately, the low cost has to be reflected 
somewhere and the colour display 
isn’t really up to the mark for pro- 
longed use in this mode. You would be 
better off saving £100 by going for the 
green screen which is much sharper 
(though obviously less satisfactory 
for games). 

The money can be put towards the 
disk drive, which is a rather strange 
unit. It uses 3” disks of a type 
developed by Hitachi, but which is 
losing out to the rival Sony 31%" 
version in the popularity stakes. The 
disks themselves are double sided, 
but the presence of only one set of 
heads in the drive means that to 
access the other side of the disk, you 
have to take it out and turn it over. 
All Amstrad owners have tape stor- 
age built into the right hand side of 
the keyboard, just where you get the 
microdrives on a QL. 

Like the Sony disks (and unlike the 
old-fashioned 54” cardboard type), 
the 3” wonders are equipped with 
tough plastic jackets which make 
them robust enough for a domestic 
environment. The disks are good for 
200K apiece, though a little dis- 
appointing considering how modern 
the design is. 

Apple’s little IIc (well, it’s a lot 
smaller than an ordinary Apple I) 
has a 5%” drive cunningly built into 
the side of the machine, where you 
could be forgiven for overlooking it. 
Capacity is not the best, at 140K, but 
most Apple II software is designed to 
be economical on disk space. 

The screen display is switchable 
between 40 and 80 columns of text, 
and even using the special IIc moni- 
tor the rather crude matrix on which 
the 80-column characters are formed 
makes the display tiring after a 
couple of hours. 

The IIc keyboard is especially 
attractive despite its compact size. 
The keyswitches are of very high 
quality, whereas the Amstrad, QL 
and BBC all vary from machine to 
machine, and have been known to 
stick. 

The Macisa rather different kettle 
of fish. Its single built-in 312" drive is 
a bit marginal for a machine at this 
level of sophistication, and the second 
(external) drive should be regarded 
as a must. 

The display is, of course, wonder- 
ful. The word processor supplied, 
Maewrite, accurately reflects on the 
screen not only the layout and line 
spacing of the final printed text, but 
also its exact size and typeface, 
together with any special attributes 
such as underlining or italicisation. 

Not everyone is wildly enthusiastic 
about the keyboard — it is all right as 


far as it goes, with good feel, but the 
lack of cursor keys annoys many 
people. You are supposed to use the 
mouse to move the cursor, but this is 
unnecessarily fiddly and time- 
consuming if all you want to do is 
delete one particular character a 
couple or words back in the docu- 
ment. 

The Apricot F1 is straightforward 
in its choice of processor and operat- 
ing system, but it is defiantly original 
in physical design. The keyboard is, 
sadly, a retrograde step from that of 
the earlier Apricots, and ressembles 
that of the QL. It is completely flat 
and tends to be obstructive unless the 
keys are pressed with a careful ver- 
tical prod. It is also a remote unit, 
linked not by the curly cord of the 
Mac or Sanyo but by an infra-red link 
similar to that of a TV remote control. 
This sounds good, but in practice it is 
less than wonderful. You have to 
point the keyboard fairly accurately 
at the receiver on the computer, and 
if anything gets in the way it can take 
a while to realise your keystrokes are 
going astray. 

To get around these problems you 
can use an optic fibre cable to link the 
two, but since this isn’t as convenient 
as the original coiled wire cable the 
whole thing seems like a waste of 
effort. 

Using the special Apricot 
monochrome monitor you get a very 
clear text display, but one which is 
rather small. Disk storage is by a 
single 34" Sony tape drive, offering 
an impressive 720K of storage per 
disk. 

The Sanyo is very conventional. 
The keyboard and display are 
obviously modelled with the IBM PC 
in mind, and the conventional 51/4" 
disk drives (one or two according to 
budget) can give up to 400K per drive 
—there are various options. We would 
always recommend the highest 
capacity drives you can afford —there 
is a considerable saving to be had in 
buying floppy disks, and the increase 
in convenience is dramatic. 


Seriously Though... 


For use in the traditional home 
computer role, the BBC Micro and 
Amstrad have clear advantages over 
the other machines. The BBC’s domi- 
nance in schools is still a force to be 
reckoned with, as is the completeness 
of the low-cost Amstrad package. 
Both machines are well supplied with 
high quality games, though the BBC 
is ahead in this respect. The QL is 
disappointingly short of entertain- 
ment software, so much so that even 
the relatively expensive Macintosh is 
far ahead here. Don’t expect to have 
too much fun with an Apricot or a 
Sanyo-—the only MS-DOS machine to 
be really well supplied with games 


-software is the IBM PC. 


If you want a computer for serious 
professional use at home, like many 
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BUSINESS 


OR PLEASURE? 


self-employed people, the BBC and 
Amstrad lose out. The BBC can be 
expanded to use a Z80 second proces- 
sor with big-time disk storage under 
CP/M 2.2, but this costs big money. If 
your requirements are met by the 
four main categories of general pur- 
pose business program (word proces- 
sing, spreadsheet, database and busi- 
ness graphics) then the high quality 
of the free QL suite makes that 
machine a much better bet for your 
£400. This is especially true when 
you realise that disks for the BBC will 
cost a good £250 minimum, and you 
might be able to make do with 
microdrives. 

A better case can be made out for 
the Apple IIc. Through veteran Apple 
suppliers such as P&P Micro Sup- 


The much-publicised Apple Macintosh (right). 
Sanyo’s MBC550 personal computer (just below). 
The Apricot (below right). 


| plies, a wide range of software can be 


obtained, although the newest and 
most powerful business programs 
need more processing horsepower 
than the ageing 6502 can deliver. 

The Macintosh is something of an 
enigma. It is rather expensive in this 
country, but remember that the 
monitor is thrown in and a free 
(though rather basic) word processor 
is supplied. 

The Mac’s greatest advantage is its 
ability to draw and write in many 
typestyles. If you work with graphics 
at all, it is the natural choice, but it is 
restricted in the mainstream busi- 
ness applications. 

The Apricot and Sanyo are the 
conservative choice for the profes- 
sional user. Both run a wide range of 
software similar to that of the IBM 
PC, and the Sanyo can even inter- 
change data disks (sometimes simple 
programs as well) with the IBM. The 
Apricot is a more elegant design, but 
the Sanyo inspires more confidence 
as a day-in-day-out computer suit- 
able for heavy sustained use. 

It is the long-term reliability ques- 
tion that, we suspect, puts many 
potential buyers off the QL. [fit packs 
up, the only real way to get it fixed is 
via Sinclair Research, and this could 


leave you without a machine for some 
time. On the other hand, the present 
writer has an unenviable record. with 
computers, blowing up BBC Micros, 
IBM PCs, Apple IIs, Commodore 64s, 
Spectrums e¢ alwith monotonous reg- 
ularity, but he hasn’t had a QL go 
down in flames yet. 

If you are a programmer, you'll 
have your own ideas about what you 
want to program. Suffice it to say 
that there is nothing to touch the 
brute power of the QL for the money, 
and a good range of programming 
languages are coming on to the 
market. 

The worst programmer’s machine 
is, ironically, the one which offers the 
greatest challenges — the Macintosh. 
Apple is almost paranoid about re- 
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leasing technical details, the high 
level languages are few and far 
between, and the only viable Mac 
development system (the Lisa 2, aka 
Macintosh Executive) has recently 
been given the chop. There is a big 
potential market for Mac software, 
but we can’t see programmers 
rushing to meet the demand. 

The Sanyo and Apricot are worthy 
engines for the programmer with an 
eye on the vast MS-DOS user base, 
but once again, we would opt for the 
Sanyo. It is more of a plain, ordinary 
computer with a very standard speci- 
fication and operating system — the 
sort of thing you want if your prog- 
rams are to be easily transferrable 
from one machine to another. 

Considering that the QL is so 
young, it is doing remarkably well. It 
seems to be finding a niche in the 
home professional market and soft- 
ware now appearing supports it well 
in that role. Many would argue that 
its long-term success depends upon it 
remaining distinctive, apart from the 
mainstream business computer 
world. You can’t beat IBM at its own 
game, so why bother trying? For this 
reason it will be a pity if too much 
emphasis is laid upon turning the QL 
into something it isn’t, like adding a 
Z80 and 64K RAM to run CP/M. If 
you want a CP/M machine, buy one, 
they can be had cheaply if you know 
where to look. 

It is a characteristic of the most 
successful personal computers that 
they eventually startle their own 
designers with the things they can be 
made to do. Classic examples are the 
Apple II, IBM PC, Spectrum and 
Commodore 64. We are nowhere near 
that stage with the QL yet — indeed 
perhaps the only program we’ve seen 
which really stretches its resources is 
Psion Chess. Let’s hope that the 
software developers concentrate on 
moving forward, with really original 
programs which will further disting- 
uish the QL from its rivals. 


AN IMPORTANT ANNOUNCEMENT TO ALL OL OWNERS 


bad orchanged medium 


Your data is worth a lot to you. Source programs, text, scientific information, records, all 
represent hours of your time and effort. Losing a file could at worst cost you money — and it’s 
always infuriating! 


No storage medium is 100% reliable. That’s why TALENT has developed the CARTRIDGE 
DOCTOR. It's a sophisticated machine code program which will, in most cases, enable you to: 


@ recover files from a bad medium 
@ recover files which have been accidentally deleted 
@ recover files with lost or damaged blocks using the ‘block patch’ utility. 
It’s very easy to operate and no knowledge of BASIC or machine code is required. 
Can YOU afford to be without the CARTRIDGE DOCTOR? 
Available only from: 


£21.95 ee ae 
ae NL 
COMPUTER SYSTEMS 


Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (ACCESS & VISA accepted) 
SOFTWARE FROM SCOTLAND 


NOW, buy a CARTRIDGE TIDY 


and you’re a free! member of 


CARTRIDGE 
CADDY SYSTEM 


What Cartridge Caddy 
membership offers you 


Microdrive cartridges 
at £1.50 delivered to your door! 


™ within 24 hours 
Please sendme ........ (Qty) Cartridge Tidy’s, Clzx Cat, | Mr/Mrs/Miss L | 
at £6.99 each, inclusive.and............ blank microdrive cartridges 
Address | | if =) J 
Make cheques payable to: | Be || LT 
4 Systems, 40L House, 68 Foxwood Close, Feltham, Middlesex 
Leh Miac ead I TE 


@ Holds : 
16 Microdrive 
Cartridges , 

@ Interlocking design 

feature allows Horizontal 

and Vertical Stacking 

—-Space Saver 


at£1.50 each | enclose a cheque for £ 


TW13 7DL Telephone 01-844 1399 


68 FOXWOOD CLOSE, FELTHAM, MIDDLESEX TW13 7DL TEL: 01-844 1399 
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On The Line 


I wrote you on the 31st 
January last re the ‘Utilities 
Program’ which I had checked 
and counterchecked, but, when 
asked to run, produced the 
legend—510 error in 
expression. 

Now however I have another 
problem, the ‘Pacman’ 
program, which I have also 
typed in and saved but when 
asked to run get ‘line 100 bad 
name’. If that line is then 
deleted I get ‘line 150 bad 
name’ so, is it the programs or 
isit my QL? Please advise. 

R Harrison 
Skelmersdale 


Without exception all 
programs published are 
first run on our QLs to make 
sure that there are NO 
syntax errors or fatal bugs. 
Immediately after this a 
listing is printed out and 
reproduced for publication 
without any modifications. 
This means if any errors are 
encountered we can 
confidently assume that 
they are not of our own 
making. 

Furthermore, as the QLs 
in the office are standard 


‘JM versions the root of most 


problems has to be a typing 
error on the part of the 
reader. Aware that after 
many hours scrutinising 
listings and punching keys 
this conclusion may be 
difficult to accept, the only 
thing we can dois outline a 
couple of useful ways of 
spotting your own errors. 

1. Error in expression —If 
a program crashes ata 
specified line with this 
message, immediately print 
out the values of all 
variables appearing on that 
line. Ifan asterisk appears 
instead ofa value then you 
will have identified the 
offending variable and all 
that remains is to trace back 
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OPEN CHANNEL 


This is the spot where we turn the magazine over to you, our readers. We welcome 


any comments, criticisms or anecdotes about either the QL or QL User. 


The address to send your letters is: 


Open Channel, QL User, Priory Court, 30-32 Farringdon Lane, EC1R 3AU. 


through the program to 
where you have omitted to 
assign a value. If, as in the 
case of line 510, the 
variables constitute part of 
a procedure call, examine 
each element (separated by 
commas) in every call 
ensuring that the total 
number matches up (ie, 
compare line 490 with 780, 
790, 710, 240 etc). 

2. Bad name-— Here the 
QL interprets a statement as 
acall toa non-existent 
procedure. Ifa procedure is 
indeed being called (instead 
ofa keyword mispelt), 
check that the name by 
which it was defined 
matches up — (ie, in Pacman 
compare line 100 with 1120 
and 150 with 1550). 

3. Finally, everybody 
should keep a wary eye on 
punctuation marks and 
strange symbols (;,:& $£ 
/), as these are easily 
confused. Also, those with 
additional device drivers 
suchas disks need to check 
carefully that any new 
keywords suchas GET and 
PUT donot correspond to 
procedure names 
appearing on programs 
written on unexpanded 
QLs. 


Spike Call 


Ina previous edition of QL 
User in the news section you 
described “The Plug” made by 
Power International. Unlike 
the other articles on that page, 
you did not give the address. 
Please will you remedy this. 
CR Mann 


Epping 


We have been inundated by 
similar requests for the 
“Spike Spoiler”. 

The elusive address is: 
Power International, 2A 
Isambard Brunel Rd, 
Portsmouth, PO1 20U— 
0705 756715. 


Transatlantic Opinion 
Notwithstanding my short 
acquaintance with the QLI’d 
certainly rate it as one of the 
more interesting small micros 
around. Turning the pages of 
the December issue, though, I 
discern many discordant 


voices. “SuperBasic is slow.” 
Well, from the point of view ofa 
microprocessor, interpreting a 
high level language throws a 
lot of emphasis on the speed of 
conditional jumps of branches. 
And, in this particular context, 
“32 bit addressing”, as is used 
in the Motorola 68K inevitably - 
tends to be a little 
cumbersome. To show its true 
colours, a 68K cries out for a 
compiler. With its extensive 
internal 32 bit register space, 
structured language support 
and capability for reasonably 
vast number-crunching 
without the addition of an 
expensive “co-processor” chip, 
even a 68008 can outclass say a 
Z80A or an 8088. 

Another implied criticism is 
directed at the microdrives. It 
seems to me that for a price 
near to that of 1000 bit per 
second cassette recorders you 
get the ability to transfer large 
files at 100,000 bits per second, 
not much slower than many 
disk drives. And where else 
(US included) do you finda 
micro which has self-contained 
and reasonably quick access to 
large software or database 
packages, but can easily be 
carried in a small brief-case to 
wherever there’sa TV. With 
time, surely we can expect that 
QL software writers will 
perfect the techniques 
necessary to let the drives be 
used in an efficient manner. 
And, perhaps, 200k or 400k 
cartridges for applications 
where slower access times can 
be tolerated? Elsewhere I see 
that the editing facilities for 
BASIC were judged to be less 
friendly than those of a 
Commodore machine. I think 


the reviewer should try editing 
a ‘real’ program, that is one 
that is more than one screen 
long, on each micro. For good 
measure, he might also seta 
variable or an array before the 
edit, and print it afterwards. I 
would be interested to know if 
his assessment remains the 
same. A QL-Apple Mac 
comparison would perhaps 
make even more interesting 
reading but that’s another 
point (see elsewhere in this 
issue— Ed). 

Finally I see a suggestion 
that a QL couldn’t handle 
games or other programs 
where rapid screen movements 
are needed. Specifically the 
QL’s large screen memory 
(32K versus 6.9K fora 
Spectrum) is cited. Well, asa 
test we might consider a loop to 
sequentially move the contents 
of a block of memory from 
location 1 to 2, zeroing location 
1 to retore a blank screen. Fora 
Spectrum, my best assembly 
language program would 
achieve this at a rate of 90 
kilobytes/sec. For a QL, I 
estimate 400 kilobytes/sec. 
Whereas I concede this simple 
comparison may not tell the 
whole story, it seems that there 
is a fighting chance that the 
QLs speed can compensate for 
the larger screen file it has to 
handle. 

In conclusion I think the QL 
is a very impressive machine 
for the price, and has 
considerable potential. Should 
a North American edition be 
offered (compatible with North 
American monitors), I for one 
would be interested. 

P Wood 
Ottawa 


Heard you were looking for a new keyboard man. 


Slow Boat 

Inoted your advice to Mr P 

Howland of Hereford in the 

March 1985 edition regarding 

the use of the F1 to F5 keys 

advising him to resort to 

Assembly language. He could 

alternatively access these keys 

via their codes, e.g. 

100 CLS 

110 a$ = INKEY $ (1000) 

120 IF CODE (a$) = 232 
THEN CLS: PRINT “F1” 

130 IF CODE (a$ = 236 THEN 
CLS: PRINT “F2” 

140 IF CODE (a$) = THEN 
CLS: PRINT “F3” 

150 IF CODE (a$) = 244 
THEN CLS: PRINT “F4” 

160 IF CODE (a$) = 248 
THEN CLS: PRINT “F5” 

170 GOTO 110 

In practice of course the “CLS 

PRINT... etc” would be 

replaced by a call to a DEFined 

PROCedure. 

Alec J Short 

New Plymouth 


This unfortunately is no 
alternative as it prevents all 
other keys on the QL’s 
keyboard from being used 
to enter information. The 
effect Mr Howland was 
lookng for is to be found in 
‘The Progs’ this month, 
where in effect a number of 
short programs can be 
hidden away to be run 
automatically whenever a 
particular function key is 
pressed. At all other times 
they remain invisible and 
do not interfere with 
whatever program happens 
to be running. 


Running Wild 


Tread with interest the letter 
from Mr Benn in your 
February issue about using the 
EASEL screen dump routine, 
and decided to give it a try. 
After running Mr Benn’s 
program I dutifully typed 
“scopy” and was rewarded with 
halfascreen dump and an 
awful lot ofjunk. 

What could be wrong? Mr 
Benn’s routines did not seem to 
be at fault, and the screen 
dump worked perfectly when 
run from inside EASEL. 

After considerable head- 
scratching I discovered that 
Psion’s code seemed to be at 
fault after all, in that it did not 
seem to be completely position 
independent. My knowledge of 
QL machine code is very 
limited, but I thought that this 
was areal ‘no-no’. 

With my version of Qdos 


(AH), the RESPR() function 
put the code at location 261744 
(83FE70H), but it would only 
run successfully when 
positioned at around 260720 
(3FA70H), which means 
ranter a lot of wasted memory 
ifit is the only routine you 
want. Ido not have an 
assembler, so rewriting the 
code to be completely position 
independent seems a little 
daunting. Perhaps Mr Benn 
could suggest a solution tomy 
problem. 

Adam J Garstone 

Sutton Coldfield 


2S OER ICT IT 


First Steps 

Ihavejust bought an 
assembler package for my QL 
hoping to start some serious 
programming. To my dismay I 
read the first page of the 
manual which says that it in no 
way attempts to teach 68000 or 
any other assembly language 
programming. I therefore now 
have, I assume, a perfectly 
good assembler but don’t know 
what to do with it. Looking at 
all the book reviews any 
publication remotely 
connected with assembly 
language programming 
assumes that QL owners know 
all about it already. 

Are there any books dealing 
with 68000 assembly language 
programming for beginners? 
Or do [have to buy a book for 
‘Spectrum’ owners and convert 
at alater date? 

Also is there available, or 
have you heard rumours of 
anyone developing a light pen 
for the QL? 

AG Weston 
North Yorks 


At present there is no single 
68000 book suitable for the 
complete novice. However 
we recommend the 
following combination: 

1. Osborne/McGraw-Hill’s 
68000 Assembly Language 
Programming by Kane, 
Hawkins and Leventhal to 
serve as your reference 
manual (£19.95). 

2. The QL Advanced User 
Guide by Adrian Dickens 
from Adder Publishing 
which will provide you with 
all the relevant QDOS 
systems calls and 
subroutines (£14.45). 

3. Adam Denning’s 
Machine Code Tutorial, 
published in QL User, 
which as regular readers 
will know is available each 
and every month for the 
paltry sum of 95p(!) 


NEXT | 
MONTH 


“THE EXPANDING QL” 


In-depth review of the long-awaited 
multi-way expansion board and survey of 
peripherals it accommodates. 


Software Review Special 


Collected games and applications packages 
reviewed inaspecialfeature. ~ 


Graphics Applications 
Beginners’ guide to the use of SuperBasic graphics 
commands — their potential and application. 


‘Monochrome Monitors 


The cheap alternative to the hi-res problem — 
black and white monitors for under £100. 


Plus: 
BROTHER EP44 AND 
TC600 COMMUNICATIONS 


SOFTWARE APPLICATIONS 
FORSMALL BUSINESSES 


CONTENTS SUBJECT TO LATE REVISION 


JUNE ’85 EDITION 
ON SALE 21st MAY 
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NEW SYSTEMS PACKAGES FOR QL 
NOW WITH 
QDOS COMPATIBLE INTERFACE & DISK DRIVE 


FRUSTRATED?) DON’T BE. OUR SYSTEMS DO WORK 


FACTORY- SRINTERS WE WE GIVE FULL TECHNICAL ADVICE 
NO JUST TESTED ALL SET UP EVEN FIT & AFTER SALES SUPPORT. 
INTERFACE PLUG IN BEFORE CABLES READY MAINS CAN YOU GET THIS KIND OF SERVICE 
PROBLEMS AND GO! BeSrara SUPPLIED TO USE Beran IN THE HIGH STREET? 


CUSTOM “TAILOR-MADE’ 
— SOFTWARE — FOR YOUR BUSINESS 
SERVICE AT AFFORDABLE PRICES 


PRINTER & MONITOR PACKAGE 


PRINTER 


DEALS + QL OPTION 


PHILIPS 


MICROVITEC 


CHOICE WITH COLOUR OR GREEN/AMBER 

(Standard) MONITOR MONITOR 

Brother HRS + Mains Adaptor £425 £265 Printers are all supplied 
Brother M1009 £459 £295 with RS232C interface. 
Epson RX80F/T+ £565 £420 Monitors display full 
Epson FX80 £725 £590 85 columns of text. 
Epson FX100 £869 £735 


Canon PW1080A NLO £649 £495 WE MAKE IT ALL 
Daisystep 2000 £599 £445 COMPATIBLE 
Brother HR15 £715 £569 
Epson DX100 £745 £590 ‘Help Sheet’ supplied 
Epson JX80 COLOUR £895 FREE with all printers. 
(Superb with QL) 


SINCLAIR QL SUPPLIED WITH ANY SYSTEM — £389 


NOW ADD DISK DRIVES! gees 


85 column display 


Drive System including 


PSU & Computamate Capacity COLOUR 

‘OQ’ Disk Interface Single/Dual (Formatted) Price Microvitec 1451DQ3 £275 
Teac 5.25” or 3.5” Single 180K PLEASE 

Teac 5.25” or 3.5” 40/80 Single 360K RING MONOCHROME 

Teac 5.25” or 3.5” 40/80 Single 720K FOR Philips 

Teac 5.25” Dual 2 x 180K PACKAGE BM7502 Green £92 
Teac 5.25” 40/80 Dual 2 x 360K DEAL BM7522 Amber £95 
Teac 5.25” 40/80 Dual 2 x 720K PRICING 

‘O’ Disk Interface alone £149 ACCESSORIES 

Box 10 5.25” BASF SS/DD disks £21 Epson RS232C I/F £30 
Printer cables for QL (Serial) Epson RS232C 2K £65 
Epson, Brother, Canon, Shinwa etc. £9.20 Miracle Systems I/F £29.95 


ALL PRICES INCLUDE VAT 


FOR EXPRESS DELIVERY ADD £10 (SYSTEMS/MONITORS/DRIVES) 
ACCESSORIES: P&P £2 


ZEAL MARKETING LIMITED 


VANGUARD TRADING ESTATE, STORFORTH LANE, 
CHESTERFIELD, S40 2TZ 
Telephone: 0246 208555 Telex: 547697 
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Anew, regular questions and 
answers column where 
readers can interrogate 
Psion’s Head of Software 
Support, Dr Irwin Joffe. 

Send your letters to: PSION 
PROBE, QL User, Priory Court, 
Farringdon Lane EC1R 3AU. 


Processed Words 


For some time now I have been 
investigating the idea of buyinga 
microcomputer to use as a word 
processor. 

Ihave been commissioned to 
write a series of educational 
monographs, of about 20,000 
words each, and the quicker I can 
deliver the completed manuscripts 
the happier my publisher will be. 
Naturally. And me too. 

Ihave been reading your 
publication for a while in the hope 
that I would find an overwhelming 
amount of evidence that what I 
need is the Sinclair QL with its 
Quill w/p program. Ihave not 
found this yet. 

I would be most interested to 
knowif any of your readers who 
regularly use Quill professionally, 
have any views on this matter. 

lam particularly bothered about 
the keyboard, for instance, which I 
have tried, but not for extended 
periods. Also, things like slow 
screen handling, unreliability of 
the microdrive system and so on. 

Can anybody advise me? 

Rod McLoughlin 
Rochdale, Lancs. 


Both the QL and its Psion software 
have come a long way since they 
were first released, and most of the 
reviews written to date have been 
based upon the early systems. In 
particular, the QL software is now 
out ina new version which is 
significantly improved, and it is 
well worth your while to have 
another look at the whole QL 
package. 


Printer Points 

Iam writing to you using the Quill 
program on my QLanda Smith 
Corona (D-100) dot matrix printer. 
It prints in single line spacing even 
though I have selected no line 


spacing in the ‘Design’ section of 
the commands. When listing a 
program the printer works very 
well. Enclosed with this letter is 
the list from a small program I 
have written which draws various 
patterns dependent on the 
numbers input into the program at 
the start. Could you please advise 
me on how I could print documents 
with no line spacing, how to print 
graphs from Easel and the 
patterns produced by the enclosed 
program as I cannot get any sort of 
print using the Quill printer 
program. 

Sean J. Barnard 

Jeddah, Saudi Arabia 


The manual which accompanied 
your printer should contain a 
section dealing with how to set the 
DIP switches on the printer to allow 
it to operate using a whole range of 
different communication 
characteristics. In the description 
of the DIP switch settings, there 
will be one which deals with the 
way the printer responds when it 
receives an end-of-line or ‘carriage 
return’ character from its host 
computer. Look for CR/LF, 
CARRIAGE RETURN/LINE 
FEED, AUTOFEED, etc. 

Ifthe DIP switch is set to autofeed 
instead of CR/LF, and if you have 
set CARRIAGE RETURN and 
LINE FEED in the INSTALL_ 
BAS program, then double-spaced 
lines will be printed. Try changing 
the DIP switch settings. 

Inorder to print graphs from QL 
Easel, a graphics printer driver 
program is required for the type of 
printer youare using. QL Easel 
version-1 was supplied with a 
graphics printer driver for the 
Epson FX-80 only, whilst Version- 
2 has increased the range of 
compatibility of this printer driver, 
as well as adding graphics printer 
drivers for the Epson JX-80 colour 
dot matrix and the Integrex 132 
ink-jet printer. Unfortunately the 
Smith Corona D-100 was not 
included in this upgrade. 


En Coleur 


Ihave a Sinclair QL and an order 
at the newsagent for QL User. lam 
only 14 years old. There are a few 
things I do not understand though, 
and wondered if you could help me 
out? [have tried putting programs 
onto a microdrive the way it says in 
the User Guide and all the QL 
responds with is NOT FOUND. 
Please could you give me 
instructions on how to put 
programs onto a microdrive. I 
think the microdrives might be 
faulty. And also, how would you 
write in colour, say ‘Sinclair’ in red, 
white, blue and black. It does not 
say how in the QL User Guide. I 
would be pleased if you could help 
me. 

Arun Chada 

Barrow on Soar, Leics 


The QL will report the error 
message NOT FOUND ifit is 


unsuccessful in finding a file which 
corresponds precisely with the file 
name you have typed in. This 
means that in order to find a file, 
you need to type in the name of the 
file in exactly the same formas was 
typed in when it was first SAVEd. 
Either you are not doing this or it 
was not saved in the first instance. 
SuperBasic has the command 

INK tochange the colour in which 
output to the screen will be written, 
and PAPER to select the 
background colour. In order to 
print QL USER in red ona black 
background, type: 

PAPER 0O 

INK 2 

CLS 

PRINT “QL USER” 
The ink and paper colours are 
documented in the ‘Concepts’ 
section of the QL Manual under 
‘Colour’. 


Archive Aggro! 


I thought I would avail myself of 
the 128K memory of the QL to 
create an index of LPs. Using 
Archive, I set up a file and started 
entering details. When less than 
one-twelfth of the way through, up 
popped an “out of memory” report. 
No more commands could be 
entered —so the data could not be 
accessed and.my time had been 
wasted. 

Iapproached Psion. Amongst 
the papers sent, Iread that only 
12K (yes, twelve) was available for 
file information — this is less than I 
can enter on my old ZX-81! 

This negates the whole package 
until Ihave 500K available. Who 
on earth wants about a dozen 
separate files to access a few 
hundred LPs? 

GL Budden 
Burnham-on-Sea 


It would seem that you have 
fundamentally misunderstood how 
QL Archive uses the QL’s memory. 
The 12K which you refer to as being 
available for file information does 
NOT represent the total amount of 
storage available for data about 
your record collection. Rather, it is 
used by QL Archive to hold 
information about your 
information, how this data is 
stored and in what sequence to 
present it if you want to use itinan 
ordered way. The actual data about 
your record collection is kept ona 
microdrive, and this has a capacity 
of about 100K. 

The 12K user area mentioned 
above is the amount of memory 
which is left over on the standard 
QL when the QL Archive program 
has been loaded, and is divided 
into two main parts. About 4K is 
used for the screen and as a buffer 
area for current records, and the 
remaining 8K is used to hold 
directories relating to the file 
organisation. For every recordin 
the file, 6 bytes are used for 
building a basic index of the file, 
anda further 8 bytes per record are 
needed for each data field on which 


you order the file. Thus, for an 
unordered file, the index permits 

QL Archive to support a maximum 
of about 1,250 records (ie, 8K/6).If 
you order on one field, this 
maximum decreases to about 370 
records, and soon. 

Version 2 of QL Archive is more 
compact than Version 1 and leaves 
21K free in the standard QL. This 
more than doubles the number of 
records it will support. Similarly, if 
you install a memory expansion in 
your QL, more memory will be 
available for the index and so the 
capacity of the database will be 
enlarged. Ultimately, the 
maximum size is limited by the 
overall capacity of the microdrive 
cartridge. 


Power Problems 


You recently carried a story about 
a device that claimed to eliminate 
the problem of spikes in the mains 
supply. I have certainly found that 
my QL occasionally ‘freezes’ for no 
apparent reason. (I use it 
principally for word processing 
with Quill.) But is there any reason 
to believe the QL to be more 
sensitive to spikes in the mains 
than other home computers? 
Nobody else seems to worry very 
much about it, and I have certainly 
never had this problem with my 
trusty old Vic 20. 

On another matter affecting 
reliability, are you sure that the 
extra memory, such as offered by 
Quest would eliminate constant 
recourse to microdrives in using 
Quill? I understand that Quill 
Mark 2 will itself eliminate 
overlays, but does the presence of 
extra memory mean that it will no 
longer constantly save to an edit 
file on mdv2? It is here that many 
of the problems seem to arise. 
Angus Ross 
Norwich 


Power supply spikes do seem to 
affect some computers more than 
others, and if the supply in your 
area is particularly bad, it might be 
a good idea for you to get a mains 
suppressor anyway. It might also 
be useful for you to check out your 
power supply to see whether or not 
this is the source of your problem... 
. Borrow a friend’s power supply 
and see if this improves the 
reliability. 

Regarding the effect of adding 
extra memory to your QL, this will 
generally be to speed up the 
operation of the Psion software 
packages, including QL Quill. It 
will also reduce the frequency with 
which the microdrives are 
accessed. This is because a large 
part of the extra memory is 
allocated to the microdrive buffer 
so that much more data can be 
typed in before reference need be 
made to the microdrive. For 
example, witha 64K RAM 
expansion you would be able to type 
in about 20 pages ofa QL Quill 
(version 2) document before the QL 
uses the microdrive. 


ION PROBE 
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Stamp out 
microdrives... 


...with the Computamate 
Q-Disk Controller 


The only thing stopping your Sinclair QL 
from becoming a fully fledged business 
computer is the Microdrive. 
Your problems are 
now over.... 


¢ 


Mi Computamate Q-Disk immediately : MAIL ORDER 
upgrades your QL to reliable disk Q-Disk Controller 
storage (up to 1.4 MBytes). Computamate Data Products, 


Ml Computamate Q-Disk is available £ -00 Scotia Road, Burslem, 
now: we. guarantee dispatch within Stoke-on-Trent. ST6 4DX 
48 hours. : 
Bl Copetatnote O-Diskisthe best TELEPHONE ORDERS: (0782) 811711 


Disk Drive System available, and has (fully inclusive) Access/Barclaycard welcome 
been highly acclaimed:in press reviews 
: Q-DISK DEALERS 


— including QL user, March ’85 

| Computamate Q-Disk 's completely W.H. Smith & Sons — contact your nearest store 
Sinclair compatible, with software Strong Computers (0267) 231246 Wales 

written by QDOS author, Tony Tebby. Eidersoft 01-478 1291 Ilford 


Disk Drive Systems from 


(Eidersoft QL:Art now available on disk) 


tae Computamate Q-Disk - fully f e 00 Computers of Wigmore Street, 01-935:2452 0 
guaranteed for two years. Castlehurst 01-446 2280 
HB Computamate Q-Disk offers random Wanderbridge Ltd., 01-995 9060 ” 0 
ili f Computer Enterprises Int., 01-542 48 
ara filing and Tony Tebby § Printerland (0484) 514105 Huddersfield 0? wa 
Toolkit*, with over 30 extra commands i hesterfield xo 
: 2 A a a Zeal Marketing (0246) 208555 Chesterfie Ss 
on ROM. File finding time reduced by (Including Q-Disk, Mail order only) Compware (0270) 582301 Crewe o 
factor:of..100. ; sas Slave Software (software for farmers) & 
= i @ 
Hi Computamate Q-Disk can be Mehler 4 Xt 
supplied with compatible disk (0782) 620321 — Trade only 7 sor 
drives, featuring the superlative TEAC Dealerships available. ? °. we 
mechanism, the best available. Oe 
2 Return to: Computamate Data 4 RS) = 
*Expansion box (Q 4 2) to- be f Products, Scotia Road, Burslem, 0 oe 
3 5 Stoke-on-Trent. ST6 4DX. Zao) 
announced.this month! This will-allow Computamate . ? ge 
expansion RAM to be used with your ae S 
i 0,7 
Q-Disk: xe 
*Toolkit is a registered trademark of Q-Jump Ltd. (Computamate Data Products is a division of Thomas French and Sons PLC) 4 oe Roe 
RY 
4 e 2? 
a @ NZ 
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ee j 
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The third part of our 
communications terminal by 
Adam Denning using BCPL and 
machine code. 


Before continuing with this month’s 
instalment, a reader has asked why 
the emulator program is written in 
BCPL rather than SuperBasic? 

The capabilities of SuperBasic are 
enormous, and most of the program 
could be written in it, but all the good 
bits would require far more machine 
code extensions than the BCPL ver- 
sion here does. The program would 
also be noticeably slower and would 
offer lower performance at the higher 
Baud rates. 

SuperBasic is unable to access all 
the more useful aspects of QDOS, 
such as the job control, the window 
size enquiry and the ‘pending input’ 
function. Extensions could be written 
to add these to the language but the 


‘INPUT/OUTPUT’ 


// continuation of terainal emulator (C) 1994 Adaa 


AND set. status{) BE 
$( SELECTOUTPUT (status) 


Denning 


SCREEN (screen, 
SCREEN (Screen, 
SCREEN (screen, 


SCREEN (Screen, strip, green) 
SCREEN (screen. clear) 
WRITEF(" Local Echo: 15" 
WRITEF(* Baug Rate: 
WRITEF(® 48" online 
WRITEF(* yg« 


border white, 1) 
Paper green) 
ink, black) 


slocal -> "gy « "OFF*) 
414 Ports yee baudrat 
e 
a ONLINE", “OFFL INE®) siti 
1 VALOF SWITCHON cri¢ INTO 
$( 


CASE 0: RESULTIS « CR" 
CASE 1: RESULTIS * LF* 
CASE 2: RESULTIS "CRLF# 
” ie 3: RESULTIS * ppc 
; SELECTOUTPUT (sysqur) 


AND set. conma() BE 
${ SELECTOUTPUT (command) 


SCREEN{ Screen. border 
SCREEN ( SCreen. paper red) 
SCREEN (screen, Strip 


White, 1) 


red) 
SCREEN (screen, ink white) 
apo Fit options 4 F2: options 2 
* options 3 Fa: options 4 F5; options 5*) 


xs SELECTOUTPUT (SysquT) 


AND do. terninal () BE 
${ LET ending = FALSE 
SrteEN(screen.clear) 
{ 
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ERMINAL EMULATION 


program would be larger and you’d 
still need to buy an assembler. It 
wouldn’t multi-task, either. That’s 
why it’s written in BCPL, although 
when Lattice C is finally released for 
the QL it could be re-written in that 
language. F 
The section of program shown this 

month has been carefully selected so 
that when combined with the earlier 
parts it will provide a (very basic) 
terminal emulation facility as it 
stands. The host of functions which 
the final program incorporates is well 
worth the wait! Before that, however, 
we've split the program into its con- 
stituent functions/procedures and 
they form the blocks below. 
When this program section is com- 
bined with last month’s, the whole lot 
can be compiled and linked with 
mce1_lib, me2_lib, mc3_lib and mc4_ 
lib to produce the first, elementary 
version of the emulator. 
Next month we enhance this crude version 
and approach the finished emulator. 


tl) 
ESULT2 2= 9 ing 32 send. ow one te TRUE 
if peADINGLSYSIN0) THER AE WNLESS onbine DO 4¢ online 


| t status) 
(serial : 
IF PENDING : ; 
read.int) 
$) 
i = TRUE 
IF RESULT2 = err.ef THEN ending ¢ TR 
$) REPEATUNTIL an 
QUTPUT (SY r 
sei teNeNoU are Logged off") 
$) 
AND send.out{) = pa 
a“ or . THEN $4 SELECTOUTPUT (keypaPe 
ee WRCH (char) m 
SELECTOUTPUT (sso 
$) cm 
= $2 4 char = #31 
* pie Z 4 I oe = 45} char = ctris 
Cc = 
THEN RESULTIS action(char) pei 
TEST char = left } char ae ea ; 
soa apheee bell \ char = gitshift THEN char t= convert (char) 
char > \ 


IF local THEN ctriout (char) 
$) 
OR IF local THEN RCH {char ) 


Nt SELECTOUTPUT (serial) 


ine THE 
IF online wecnicae) t char = er THEN WRCH(LE) 
IF crit = 


$) 
SELECTOUTPOT (sYSouT) 
RESULTIS FALSE 
$) 


into 
AND convertich) = VALOF SWITCHON ch 


. CASE left: RESULTIS back 


CASE right: RESULTIS forward 
RESULTIS upline 


Soe RESULTIS 1f 
SE down: 
3 lf: TEST crif NE 1 THEN RESULTIS cr 


OR RESULTIS 1# 
CASE fitshift: RESULTIS ctric 
DEFAULT: RESULTIS ch 


$) 


vind) BE 
on re PENDING (serial ,0) & 
NOT PENDING (SYSIN, 0) Hit) 
$( LET ch = ? 
SELECTINPUT (serial ) 
eee EANCH THEN 
= ENDSTR 
' r ernest akan have been logged 


SToP(err.ef) 
$) 
IF serpipe THEN $1 SELECTOUTPUT (serpipe) 


CHich) 
SELECTOUTPUT (SYSOUT) 


$) 
= null } ch = ctric ‘ 
TEST ch * mu ‘ ch = home 


bell <= ch qe er 
THEN ctriout (ch) 
OR WRCH(ch) 


$) 
SELECTINPUT (SYSIN) 
$) 


AND ctrlout (char) BE 
$( LET coords = VEC 3 
WINDOW (window. askc ,coords) 


SWITCHON char INTO 


ENDCASE 

WRITES("*C") 

ENDCASE 

$( LET soundvec = VEC 7 
soundvec!0 += 75 


( 
CASE null: 
CASE ctric: 


CASE bell: 


SET.STATUS 

Looks after the green window at the top of the 
screen which is used to show the status of the 
terminal — the Baud rate, whether it’s online or 
not, and so on. This is called the status window. 

The procedure sets up the window’s colours 
and then executes a series of WRITEF calls to 
print the current values. WRITEF is a library 
procedure which prints its arguments to the 
current output stream in the format specified by 
the first parameter, the ‘format string’. A ‘%’ 
character in this format string is treated as a 
special character, as the symbols following it tell 
WRITEF to substitute the whole composite (‘%S’ 
or whatever) with the relevant parameter. ‘%S’ is 
replaced by a string, ‘“%C’ by a character and 
‘In’ by a decimal integer using a field width of 
‘n’. 

Notice how a number of the parameters to 
WRITEF are expressions here; maybe involving 
the ‘— >’ conditional expression, maybe 
involving the value of a SWITCHON block, or 
maybe using the ‘%’ byte indirection operator. 
This is one of the advantages of languages like 
this —it’s very easy to select a particular value 
for a parameter by making it the result of an 
expression. 


SET.COMM 

Functions similar to set.status, but looks after 
the lower red ‘command window’ instead. This 
window was opened as a console device rather 
than a screen device as we will often need to read 
input from it. This does not affect any of the 
other windows that may be used. 


off !") 


CASE forwards 


CASE 1¢: ome 
: Terl¢ = 
ee 1 THEN NEWLINE () 
TEST Coords! 
'3 NE Coords! 
Ns 
| OR SCREEN (screen, scro]] ak Nas sles pat mt 
ENDCAS| 
CASE upline: : 
Upline: SCREEN (screen up) 
IF Coords!3 oy 
| net Enis f O THEN SCREEN (screen, sero] 10) 
f CREEN (screen | 
CASE cr: Se ee 
ie Crif = 9 THEN NEWLINE 
R SCREEN (s, : 
bens Homes Freen.at,0,coards!3) 
: SCREEN (screen at,0 
ENDCASE _ 


DEFAULT: 
$) 7! enpcage 


WINDOW (1; 
* (window, a5kc coords) 


AND action = FALSE 


DO.TERMINAL 
This checks the status of the keyboard stream, 
and calls the send.out function if there is data 
waiting to be read. If not, it checks the status of 
the serial line, and calls read.in if there is data 
ready there. 

Both read.in and send.out return results to 
do.terminal, the value usually being FALSE. If it 
is TRUE, then the program effectively ends. 


SEND.OUT 

This function deals with characters ready to be 
sent down the serial line. Having read the 
character and assigned it to ‘char’, the global 
variable ‘keypipe’ is checked. If this has a value 
other than 0 (FALSE), the keyboard pipe must be 
open, so the untouched character is sent down 
the pipe. 

If the character is a function key (or CTRL-S) 
then the function to deal with special terminal 
routines is called. : 

If the key pressed is one of the cursor control 
keys or other ‘control characters’, itis first 
converted into a more general value before 
sending. Notice how we use SHIFT-F1 to senda 
CTRL-C character, as the key combination 
CTRL-C is trapped by QDOS and cannot 
otherwise be sent. At this stage, we also print the 
character down the serial line if the terminal is 
currently online (indicated by the global variable 
‘online’ being TRUE). 


CONVERT 
This function takes an arbitrary control 
character and converts it to a more useful value. 


7 
} SOUND Sounder 


ENDCASE 
TEST coords: 


NE Coords'9 — 
OR NEWLINE) 510 - 1 THEN SCREEN (screen right 
“Fignt) 


// | 
add actions 48 appropriate 


Soundvec!3 ;= 
SOundvec !4 


| (one of the things which SuperBasic can’t do 


~509 


+ 150undvec!2 = 4 0 


DO soundvec !y 139 


CASE back: ypycfS 
Coords!2 WE g TH 
EN 
7 Mo coords!3 ye 0 Teen serem, left) 
EN(screen, a 
-4t coords! 
OR ¢ nerds 0 = Ico 
"SIREN ecrean.at,conrgsty. ea 
FEN (Screen, scroll, 19) ~ 1,0) 


This reads characters in from the serial line and 
takes appropriate action, such as displaying 
them on the screen. It does much the same as 
send.out but in reverse, and also checks to see if 
the terminal has been automatically logged off 
by the host sending a CTRL-Z (unlikely, but 
possible!) 


CTRLOUT 
This is the most complex function here as ithas 
to convert control characters. 

Pressing cursor-up usually moves the cursor 
upwards. It does this using a SWITCHON block to 
take a different action for each character value, 
and takes great pains to keep the screen in 
order. Characters like CTRL-C, NUL and BEL are 
handled easily enough, but the cursor 
movements are tediously difficult to achieve. 

We first take a record of the current window 
size and cursor co-ordinates by making a call to 
WINDOW with the window.askc parameter. This 
returns four values, representing the X- and 
Y-co-ordinates of the window itself and the 
current cursor position, returning the values in 
terms of character positions rather than pixels 


directly!) If the cursor is being moved left or 
right, we can generally use AT to move the cursor 
accordingly, but if the cursor is at the end of a 
line it must be put onto the line above or below. If 
this line is not on the screen, the entire screen ° 
has to be scrolled up or down by 10 pixels (the 


height of a character). Moving the cursor up or 
down has to follow the same scheme. 
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Quest’s Executive series 
aims to transform the QL into 
a versatile business machine — 
Paolo Baccanello follows their 
first attempts. 


Quest International ple was the first 
major independent to commit itself to 
the QL. As far back as September 
1984 the company had announced its 
intention to provide both hardware 
and software backup for the machine. 
On the one hand it promised a 
comprehensive range of peripherals 
which included floppy disk drives, 
Winchesters, RAM extensions and 
even an Expansion Console. On the 
other, it would offer CP/M 68K as an 
alternative to QDOS and support an 
extensive suite of accounting prog- 
rams. The object was quite clearly to 
transform the QL into a fully fledged 
business machine available at a bar- 
gain price. 

Coming at a time when bugs in 
QDOS and microdrive unreliability 
were undermining the QL’s credibil- 
ity, Quest’s announcement did much 
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to rally confidence in the machine. 
Only recently, however, have their 
units gone into volume production 
(with the exception of a Winchester) 
and even now certain aspects of their 
operation have yet to be finalised. 
The disk system reviewed this month 
is a case in point. 

Quest’s disk system is a radical 
departure from those reviewed to 
date. To begin with the interface 
board is very much larger measuring 
some 270 X 30 X 120mm and adding 
a full six inches to the QL’s length. 
Housed in a matt black metal casing 
and resting on two plastic feet, (neith- 
er of which are angled) it is designed 
to fit unobtrusively into one of the 
four slots on their stylish aluminium 
Expansion Console (not available for 
review). Without this, however, slot- 
ting into the QL’s main I/O port, itisa 
rather ungainly affair. 

The interface’s size is explained by 
the fact that it contains a special O/S 
card necessary if the QL is to run 
CP/M 68K. The 5!" drives it uses 
come in a variety of different formats 
affording capacities ranging from 
200K up to 720K (formatted), dual or 


single drives. All are housed in high 
quality ribbed black plastic moulded 
cabinets measuring some 410 x 190 
x 140mm. Though attractively 
styled, these tend to dwarf the QL. 
Half-height (double-width) versions 
are available. In either case the 
additional bulk has been set aside to 
include a fan, though this was not in 
evidence on the dual 720K drives 
reviewed. This was unfortunate as 
the disks did tend to get quite hot 
after extended use. 

Despite minor niggles about their 
size the drives are well finished. In 
operation they purr indiscernibly and 
often flashing indicator lights are the 
only evidence of head movement. 
Furthermore the catches at the front 
of the machines may only be closed if 
a floppy disk or transport card is 
resident. 


On the firmware side, Quest’s disk 
controller is by far the most sophisti- 
cated of those yet reviewed. It sup- 
ports 3”, 34", 5%" and 8” drives 
though at present only the 5%” 


ont’ HORIZON 


variety are in evidence. More impor- 
tantly, it permits the user to run 
programs both under QDOS and 
Digital Research’s CP/M 68K, 
though not simultaneously. Whilst 
the amount of software available 
under the latter system is by no 
means plentiful, until the current 
famine surrounding the QL ends, any 
alternative source of programs must 
surely be a boon. Incidentally, 
Quest’s software arm, Padmede, cur- 
rently supplies a comprehensive 
suite of accounting packages to run 
under this system. However, before 
moving into the CP/M 68K field 
business users should be aware that 
80 track (720K) drives are not yet 
supported by it. 


Double Standard 


Conforming with the Sinclair-Tebby 
standard, Quest’s QDOS driver per- 
mits disks to be formatted 512 bytes 
per sector, 9 sectors per track, 40 or 
80 tracks. Indeed, we were able to 
interchange disks formatted on other 
systems with those working in this 
device. Reassuring proof that the 
standard is indeed effective! 

However, having said this, sophis- 
tication here would appear to have 
bred complications. On the odd occa- 
sion, saving under Quill 2.00 crashed 
the program and corrupted the data 
disk. Unable to ascertain the exact 
source of the problem we assume that 
the driver provided (version 1.01) 
was probably pre-production. Cer- 
tainly our reviewer, who had failed to 
make regular back-ups (Silly boy — 
Ed!) of the ¥2 megabyte of documents 
lost when the system went down for 
the first time, found it difficult to be 
objective! 

In terms of extras, the emphasis in 
Quest’s system is clearly on the CP/M 
side of the equation. Available on 
microdrive (O/S card extra) or disk 
this is a full implementation with all 
the regular commands and utilities 
as well as a 68000 assembler, C 
compiler and extensive manual. 

On the QDOS side there are few 
frills. All you get is a disk driver, pure 
and simple. With others offering such 
goodies as extra SuperBasic com- 
mands, random access, multitasking 
control routines, disk doctors and 
even microdrive emulation, this 
seems somewhat meagre even with 
CP/M 68K in the balance. Neverthe- 
less all existing QDOS I/O commands 
are supported and a necessary 


variant to the FORMAT command 
has been added. It takes the form: 

FORMAT FDV <drive num 
ber>_<drive type>_<name> 
and permits a maximum of three 
drives to be used (ie, FDV1, FDV2 
and FDV3) and three different types 
of format to be specified (ie, 80 track 
double-sided, 40 track single or dou- 
ble sided). Also each disk may be 
given an arbitrary name (10 charac- 
ters max) in much the same way as on 
microdrive cartridge. Finally it 
should be noted that the formatting 
program (QFORM) is separate from 
the driver and must be overlaid from 
either microdrive (mdvl) or disk 
(fdv1). 

Similar to their RAM disk driver 
(reviewed last month) Quest’s floppy 
driver (QFDL) comes on microdrive. 
Whilst this does mean that it is 
considerably easier for the user to 
update to new versions there are 
appreciable drawbacks. 

First, the driver must be loaded in 
whenever the QL is switched on or 
reset. Loading takes twenty seconds, 
not unduly long but nevertheless a 
minor inconvenience when you con- 
sider that alternative ROM-based 
drivers are instantly accessible. 

Secondly, the driver loads into 
RAM where instructions currently 
take four times longer to execute 
than those in ROM. The effect though 
slight is noticeable when loading or 
merging large files. On this score we 
understand that execution times 
have been halved with the latest 
version (1.02) of the driver. 

The six page Disk Drive User 
Guide supplied with the system 
though short is succinct and to the 
point. There are plenty of warnings 
as to what might go wrong as well as 
useful suggestions such as backing 
up disks regularly, a golden rule well 
worth remembering. 

Overall Quest’s Executive Disk 
System is a bold and ambitious pro- 
ject. The company have taken an 
entirely different tack from the com- 
petition. In porting CP/M 68K across 
to the QL they have added a new 
dimension to the machine. Bearing in 
mind that this new operating system 
is available to only a few machines 
costing many times the price of a QL, 
this is no mean feat. However, its 
appeal to QL users will depend upon 
how much software support Quest 
can provide and at what price. At 
present they would seem to be cater- 
ing for the upper end of the business 


market with the QL selling as a 
single integrated business system. 


Prices: 


Single drives Dual drives 


200K £295 2x 200K £469 
400K £419 2x 400K £579 
800K £499 2x 800K £695 


£139 
£69.50 


Expansion Console 
Monitor Stand 


O/S Card £49.50 
CP/M 68K (disk) £59.50 
(mdv) £99.50 


Supplier: Quest International, 
School Lane, Chandlers Ford, Hants, 
SO5 3YY. Tel: 04215 66488. 


Right Connections 


SMC have added three products to 
their range. The first is a Centronics 
printer interface. Hardly a new- 
comer on the QL scene, it adopts the 
usual configuration with a lengthy 
serial cable at one end, short parallel 
cable at the other and_ interface 
located between the two. The device 
converts information sent at 9600 
Baud and seems expensive bearing 
in mind that it is not switchable. 

The second product is an adapter 
which allows most popular joysticks 
(9 pin Atari type) to be connected up 
to the QL. It consists of a short length 
of cable (235mm) with the appropri- 
ate connectors at either end. 

The final offer is a 1.5 metre Epson 
printer cable. Now that Sinclair no 
longer provide one free with the QL 
this may well prove a winner. 


Prices: 

Printer Interface 
Printer Cable £ 9.95 
Joystick Adapter £ 3.95 


Unconfirmed reports say that the 
Medic Disk System will incorporate a 
Mac Emulator. Fact or fiction? We 
have yet to review any products from 
this source. 

And with the demise of OE Ltd, 
users might try contacting Comm- 
pak Daka, 13 Beechwood Road, Up- 
lands, Swansea — 0792 473697. The 
company produces multi-standard 
intelligent modems (MSM-PC) for 
the QL. 


£39.95 
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Just another tool to help unravel 
machine code or a comprehensive 
debugging environment? Richard 

Cross suggests the answer lies 
somewhere in between. 


A machine code monitor is a piece of 
software which helps in debugging a 
machine code program. The Compu- 
ter One monitor is much more than 
this as it not only monitors machine 
code, but can monitor just about 
every aspect of the QL at a useful, 
down-to-earth low level. 

The monitor is started by the Basic, 
EXEC command. Thus it runs as a 
job along with any others currently in 
the QL. Other jobs could easily be 
Computer One’s editor and assemb- 
ler, although with them all loaded 
there would not be much memory left 
in an unexpanded machine. With all 
three programs running you are in 
control of a very powerful machine 
code development tool. Source prog- 
rams can be created with the editor 
converted to object code with the 
assembler, then the resultant prog- 
ram can be run/debugged with the 
monitor. 

When the monitor is first loaded 
you ate presented with five screen 
windows. The four main ones are for 
disassembling, dumping memory, 
dumping registers and inputting 
commands, each possessing its own 
channel number. These numbers are 
very similar to the SuperBasic chan- 
nel numbers we are all used to. 
Specifying a channel number as one 
of the parameters for a command will 


loaded by the use of the LOAD 
command. The program can then be 
set up as a job, but will be suspended. 
The job can be started by using the 
TRACE command. This causes a 
specified number of lines of the prog- 
ram to be disassembled and then 


COMPUTERONE 
MONITOR 


window in the form ‘SCR_256 x 
100a0 x 0’. This is very valuable if 
lots of windows must be designed. 
The monitor keeps an area of 
memory called the ‘main’ area. This 
is usually set to the start of a job. A 
pseudo register called BP (base poin- 


“The Computer One monitor allows you to monitor just about every aspect 


of the QL at a useful, down-to-earth level.” 


executed. Also, after each instruction 
a register dump will be performed. 
Pressing the down cursor key will 
cause the TRACE command (or any 
other) to be repeated. Programs can 
be executed without tracing by using 
the GO command. This performs an 
unconditional jump to the current 
contents of the program counter. 
The manual states that a register 
dump will be performed after a GO 
command finishes, this did not hap- 
pen on my copy of the program. 
Execution of a GO command ends 
when a breakpoint is met and break- 
points can be set and cleared with the 
BREAK and NOBREAK commands. 
However there appears to be an 
interesting point in the trace part of 
the monitor. If you try to end a 
program with an RTS instruction and 
trace through this instruction, the 
monitor may occasionally crash! The 
reason for this is that the monitor 


“The most impressive thing about the monitor is that any command can 


be run as a separate job using the CLONE command.” 


cause output to be sent to that 
channel. New channels can be 
opened with the OPEN command to 
any device (eg, serl, mdv1l_). Each 
command has a default channel 
which will be used if no channel is 
specified. A very useful feature of the 
OPEN command is that if you open 
the CONsole (channel #1) to another 
device such as a microdrive file, then 
the monitor will take its commands 
from this file instead of the keyboard. 
So a set of commands which are used 
frequently could be stored as a mic- 
rodrive file. 

Typing HELP at the command 
prompt will cause a list of all of the 
commands the monitor understands 
to be printed. There are over 40 
commands, each of which can be 
abbreviated to one or two letters. 
Machine code programs can be 


24/QL User/May 1985 


treats programs as jobs running 
under QDOS, these should be killed 
of explicitly or using the monitor. An 
RTS, therefore, is inappropriate. The 
QL can also be crashed by simply 
shifting a lump of memory over the 
system variables, or some other 
sensitive area, as no memory protec- 
tion is performed. You should there- 
fore be careful what you move to 
where. 

Some of the other commands in- 
clude moving and altering memory, 
searching memory, job management, 
heap management and channel man- 
agement. A very useful one is WIN- 
DOW. This allows you to move a 
window about with the cursor keys 
and change its size with <CTRL> 
and the cursor keys. When 
<ENTER> is pressed the window 
size and position are printed in the 


ter) will point to its bottom and TP to 
its top. All addresses will be assumed 
relative to this pointer unless a pound 
sign is given after the address. When 
the monitor prints any address, if it is 
within the ‘main’ area then it will be 
printed in the form disp(bp) eg, 
01A4(bp). 

One minor problem with the prog- 
ram is that once a disassembly. or 
memory dump has been started it 
cannot be stopped until finished. This 
is a serious omission from the prog- 
ram, especially if you attempt to 
dump the entire contents of a large 
area of memory with a command like 
DUMP 0,10000 and change your 
mind half way through. You must 
then wait about half an hour until it 
finishes (when I did this I ended up 
pressing the reset button). 

The most impressive thing about 
the monitor is. the fact that any 
command can be run asa separate job 
with the CLONE command ie, the 
command will repeat on its own until 
you stop it. This is unbeatable if you 
need to keep an eyé on specific areas. 

The manual supplied is over 40 
pages long and packed with all the 
required information. The first sec- 
tion, called ‘getting started,’ gives a 
demonstration of the monitor’s abili- 
ties using the example program sup- 
plied on the cartridge. Overall this 
was good except for a few misprints — 
which had me lost for a few minutes. 

The overriding impression of the 
monitor is of an invaluable part of 
any machine code programmer’s tool 
kit. Apart from the few oddities 
mentioned, the program seems well 
worth the outlay. 


Price: £24.95 

Supplier: Computer One, Science 
Park, Milton Road, Cambridge. 
(0223) 862616. 


SKETCH PAD 

PARALLEL PRINTER 
INTERFACE 

JOYSTICK ADAPTOR £ 5.90 x 


QL 


SKETCH PAD 


A graphics design package allowing the 
user to create high resolution full colour 


* Drawings saved on microdrive can be 
redisplayed from within any Super- 
Basic program using simple procedures 


PARALLEL PRINTER 
INTERFACE 


Simply plugs into the ‘Ser |’ port of the 


supplied on microdrive. QL and any centronics compatible 
printer (eg:- EPSON, CANON, OKI; 
Kaga, Juki etc.) 

works with PSION software and requires 
no special commands. Full instructions 


included. 


JOYSTICK ADAPTOR 
Enables any Atari compatible joystick 
(eg: Kempston, Quickshot) to be used 
with the QL joystick ports. 

All prices include V.A.T. and p & p within the U.K. Make cheques or postal orders payable to Sigma Research. 


pictures and diagrams using the cursor 
keys or a joystick. Features include:- 


Some applications include:- 


* Labels * Signs * Flow Charts 
* Graphics for Games 


* =Artists Drawing 
tot tok tok toto tok toe 


SPECIAL OFFER 
SKETCHPAD PLUS JOYSTICK 
ADAPTOR £19.95 


ee eee sete eee Tee T TTL LSS SSS 


* Screen dump to any Epson compatible 
printer. 

* Microdrive save and load of screens. 

* Use of stipple gives a vast range of 
colours. 

* Graphics and text can be freely mixed. 

* Automatic drawing of many shapes. 

* Filling of regular or irregular shapes in 
any colour. 


Sigma Research— 


231 Coldhams Lane, Cambridge CB1 3HY. 
Telephone: (0223) 214109 


ACARE ELECTIRONIGS 


UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD’S APPROACH, TOLPITS LANE, WATFORD, HERTS WD1 8SR. 
@ Tel:0923777155 & 


PRINTER INTERFACE 
QL SERIAL TO PARALLEL CONVERTER 


Switchable baud rate. This is necessary because the baud rate on the two serial ports cannot be set independently, and unless you can 
set the baud rate on serial to parallel converters your printer will be inoperative while using modems and other communications 
devices. Self-contained, colour matches the QL, full one year guarantee, comes complete with 1.5 metres of cable. 


* BAUD RATE SWITCHABLE 
PRINTER SELECTOR 


* CRYSTAL CONTROLLED 
* QDOS and SUPERBASIC compatible Capable of taking one QL and up to six printers 
Price £75.90 (d) inc. VAT 


* Drives any CENTRONICS printer 
* i i ’ 
Preeeed sa) (a) ine, VAT DON’T BUY A COLOUR MONITOR FOR YOUR QL 
Attention all software houses, Eprom cartridges for the QL, Have your Pye/Philips or Ferguson TX TV converted 
toa TV/Monitor. 


ROM expansion slot now available, an ideal way of packaging 

our utility program fast loading/no error and saves expense of ‘ : 
7 i ’ In house conversion. £63.25 (a) inc. VAT. 
Conversion kit £51.75 (d) inc. VAT 


microdrive cartridge. 1 cartridge £6.90 inc. VAT (c); 10 cartridges‘ 
£5.29 each inc. VAT (c). 
Please consult factory for details. 


* Full85 Characters in monitor mode 
How to order by post, enclose cheque/P.O. made S RSPR ROLE ene A Pe 
payable to Care Electronics or use Access. : re eat pel lh ENQUIRIES 
7 days for delivery. * Conversions carried out at our workshops WELCOME 


Giinitcscto | 


(Ls add carriage (a) = £8.00 within 2/3 days 
: i= £1.00 - Philips 14” TV/Monitor at £253 (a) inc. VAT. 


£2.00 Specially converted to run for the QL. 


Cay a a a a a a ae ae / 
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Open 
9am-5pm Mon-Thurs 
9am-4pm Fri-Sat 


QL Computer 
68008 CPU, 128K RAN, 4 software 
packages 


£347 (a) 


Monitors 

Microvitec CUB 653 14” colour 
Sinclair QL Monitor (Data Efficiency) 
colour 


£239 (a) 
£260 (a) 


Printers 

$C1000 dot matrix 

100cps with RS232, 

Centronics, Fricton 

and tractor feed £189.95 (a) 


$C1200 dot matrix 120cps printer with 
Centronics interface (requires ser to Centronics 


converter unit) £215.95 (a) 


SC1200 as above plus Near Letter Quality 
print option £247.95 (a) 


Serial to Centronics converter unit (plugs into 


ser Port) £24 (b) 


Disc Drives and Interfaces 
INTERFACE — supports up to 4 double sided, 
double density disc drives with microdrive 
emulation facility, useful utilities in ROM, disc 
editor and fully compatible with QDOS and 
PSION packages £99 (b) 
DISC DRIVES - 80 track, double sided, 
double density 5.25” disc drives offering 
720K per drive. Boxed with PSU and leads 
720K single drive £148 (a) 
1.4Mbyte dual drive unit £304 (a) 
Memorex 5.25” discs DSQD 

(box of 10) £38.95 (b) 
80 track single sided, double density 5.25”, 
360K per drive 

360K single drive 

720K dual drive unit 
Memorex 5.25” discs SSQD 
(box of 10) 

Library box (holds 10 discs) 


£130 (a) 
£274 (a) 


£34.60 (b) 
£1.95 (c} 


Memory Expansion Cards 


Business Package 

Complete business package comprising a QL 
computer, Microvitec CUB 653 14” colour 
monitor, SC1000 printer and all connecting 
leads £769 (a) 


Communications 

Link your QL to the outside 

world via the telephone! 

QCON RS2372 interface control unit for 
QMOD and QCALL £69.95 (b) 
QMOD modem 1200/75 and 1200/1200 
baud for use with QCON £69.95 (b) 
QCALL auto answer/dial unit for use with 
QCON and QMOD £43.95 (b) 


8 Accessories 


Microdrive cartridges 1-9 (each) 
Microdrive cartridges 10+ (each) 
Library box (holds 20 mdvs) 

RS232 serial to Centronics converter 
unit £24 (b) 


£1.75 (c) 
£1.65 (c) 
£5.20 (c) 
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Language Software 
PASCAL (Computer One) 
LISP (Metacomco) 

BCPL (Metacomco) 
FORTH (Computer One) 


£34.50 (c) 
£52.20 (c) 
£52.20 (c) 
£34.50 (c) 


The ADDER QL MACRO Assembler 
£29.95 (c) 
. . the best editor/assembler going for a 
beginner or experienced user . . . it is the most 
‘user-friendly’ editor/assembler I’ve ever 
used!’’ (Quanta, Jan 1985) 
The ADDER MACRO Assember provides all 
the facilities required to develop and debug 
68000 assembly language programs. The 
integrated editor/assembler resides in 
memory, eliminating the necessity to assemble 
from slow microdrives (large files can of course 
be assembled from disc or microdrive if 
required). All standard Motorola compatible 
features are provided by this assembler, plus 
the ability to change registers and memory for 
debugging purposes. 


“ut 


Other Assemblers 
Metacomco QL Assembler 


£34.75 (c) 
GST (Sinclair) QL Assembler 


£34.75 (c) 


Utilities 

Monitor/disassembler (Computer 

One) £21.95 (c) 
QL Toolkit (Sinclair) £21.95 (c) 
QDOCTOR (ADDER) £14.95 (c) 
stored on 


yew 


You need a microdrive doctor. QDOCTOR 
provides a full screen microdrive sector editor/ 
checker which checks a complete cartridge for 
errors, then recovers as much data as remains 
intact. Have you ever deleted a file by 
mistake? Recover it with QDOCTOR! No user 
of the QL can afford to be without this 
valuable utility. Comprehensive manual 
included. Only £14.95 (c) 


STOP PRESS... 
NEW PRODUCT 


Ever lost a program 


Business and Applications Software 

QL Typing Tutor (Computer One) £17.35 (c) 
Cash Trader (Sinclair) £21.95 (c) 
QL Entrepreneur (Sinclair) £34.75 (c) 
QL Project Planner (Sinclair) £34.75 (c) 
QL Decision Maker (Sinclair) £34.75 (c) 


Games 

QL Chess (Psion) 

WEST Adventure (Talent) 
ZKUL Adventure (Talent) 


£17.35 (c) 
£17.35 (c) 
£17.35 (c) 


Connection leads — two metres long 

ser2 — RS232 lead £11.95 (c) 
ser2 — serl (QL to QL) £5.95 (c) 
ser2 — BBC Micro RS423 £5.95 (c) 
QL — monochrome monitor lead £5.95 (c) 
QL — Microvitec colour monitor 

lead £6.95 (c) 
SER port connector + 2m of wire £3.95 (c) 
CTL port connector + 2m of wire £3.95 (c) 
CTL port — Joystick (ATARI 


standard) lead £5.95 (c) 


Books (No VAT) 

Advanced Prog Sinclair QL 

Artificial Intelligence QL 

Assembly Language Programming 

QL £7.95 (b) 

Desk-Top Computing with Sinclair 
L 


£6.95 (b) 
£6.95 (b) 


£6.95 (b) 
Developing Applications on QL £6.95 (b) 
Good Prog with QL Super BASIC £5.95 (b) 
Intro to Simulation Techniques QL £6.95 (b) 
Intro to The Sinclair QL £6.95 (b) 
Intro to Super BASIC with QL £6.95 (b) 
Quantum Theory (Century) £5.95 (b) 
QL Abacus (Century) £8.95 (b) 
QL Advanced User Guide 

(ADDER) book £12.95 (b) 
QL Advanced User Guide Programs 

(ADDER) cart £9.95 (+VAT) (c) 


“An excellent 
reference book. ..a 
stepping stone to the 
heart of the QL.’’ 
Sinclair User, January 
1985. 


QL Assembly Lang Prog 
(McGrawHill) 

QL Easel 

QL Super BASIC 

(A Prog’s Intro) 

QL Games Book 

QL Quill (Century) £7.95 (b) 
Quill, Easel, Archive, Abacus £6.95 (b) 
Sinclair QL Adventures (Sunshine) £5.95 (b) 
Sinclair QL User Guide £7.50 (b) 
Sinclair QL Companion £6.95 (b) 
Word Processing with Sinclair QL £6.95 (b) 
68000 Assembly Lang 
Programmin 


68000 Handbook 


£12.95 (b) 
£7.95 (b) 


£7.95 (b) 
£6.95 (b) 


£18.95 (b) 
£11.50 (b) 


All prices exclude VAT. 

Please add carriage (a) £8.00 (Securicor); 
(b) £1.50; (c) £1.00; and VAT at 15% 

to order value including carriage. 


(ap 


ADDER 


MAIL ORDER ONLY 


Please make cheque/postal order payable to: 


ADDER Publishing Limited, 
Dept QLU, 
PO Box 148, 
Cambridge CB1 2EQ 
Telephone (0223) 277050 


Official orders from Government establishments, universities, 
colleges, state schools and nationally recognised PLCs 
welcome. 


Prices correct at time of going to press, but subject to change 
without notice. 


Sinclair, QL, QDOS are trademarks of Sinclair Research Ltd. 
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LLUSTRATION BY PAUL ALLEN 


ith its vastly superior 


memory and speed, the QL is 


he first accessible micro to 


make possible serious 


investigation into artificial 


intelligence. Mike James 
begins anew series with this 


in mind. 


This short series deals with two 
exciting subjects — Artificial 
Intelligence (AD and its 
practical QL implementation. 
Alis animportant and 
interesting subject not only 
because it’s most probably 
where the future of computing 
lies, but because it can supply 
techniques for using today’s 
computers in new ways. The 
connection between the QL 
and Alis that the QLis one of 
the few machines that is 
powerful enough to run AI- 
based software; although it’s 
true that for the larger 
programs it would still be 
necessary to use either 
machine code or a compiled 
language to gain speed. 

Most introductions to Al are 
largely theoretical discussions 
of how things can or could be 
done. In the case of the QL, 
however, SuperBasic makes it 
possible to give practical 
examples of all the methods 
described in this series. Every 
program included will be as 
‘well structured’ as possible 
and make use of all 
SuperBasic’s advanced 
facilities. So, even if you are not 
particularly interested in AI 
you should find the programs 
useful as examples. 

Artifical Intelligence isa 
very large field of endeavour, 
but we'll be concentrating on 
the two most practically 
important areas— problem 
solving/reasoning and natural 
language processing. 

The first of these, problem 
solving, is a vast topic covering 
applications in game playing, 
expert systems, logic, etc. 
Natural language processing 
encompasses efforts to make 
computers, talk, understand 
what is said to them, translate 
between different languages 
etc. This month we concentrate 
on ways of getting computers 
to help with the solution of 
problems that are normally 
thought to require skills only 
humans possess. 


Problems, Problems 
To be able to write a program 
that solves a problem it is 
necessary to know how you 
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would go about solving it. 
Anyone who has even the . 
slightest practical knowledge 
of computers knows that there 
is no way of getting an answer 
to a question simply by asking 
the machine— someone must 
have already ‘programmed in’ 
the route to the answer. The 
trouble is, there are many 
problems that humans don’t 
know how to solve and 
naturally enough these are the 
very problems that we would 
like computers to work out. 
Often, humans will achieve a 
solution without any idea as to 
how they did it and thisis 
where the problem lies. To be 
able to write a program to solve 
a problem, it is not only 
necessary to know how, but 
also to be able to describe how, 
you arrived at the solution. 
This is because the program 
that you are trying to write isa 
description of how you solved 
the problem! 

One approach to AI claims 
that it doesn’t matter if we 
don’t know how to go about 
solving a specific problem, the 
important thing is to write 
programs that can solve 
general problems — in the same 
way that humans do. 
Following this line you could 
end up witha program thatisa 
general problem solver but 
can’t ‘tell you’ how it did it! 
Programs that behave in this 
way are often said to ‘learn’ the 
solution to a general problem. 
The idea sounds very 
promising but so far very little 
progress has been made with 
it. Amore practical alternative 
is to press on with the attempt 
to write programs that solve 
specific problems even though 
the complete method of 
solution may not be known. 


Humane Solutions 
Consider the problem of 
winning at chess or draughts. 
There are some humans who 
solve this problem very well. 
They tend to win against most 
opponents, which suggests 
that they have a method of 
playing which is a good 
solution to the problem. If 
there weren’t such experts 
then you might decide that 
there was no solution to the 
chess/draughts problem. In’ 
other words, you might assume 
that players made moves fora 
wide variety of reasons none of 
which had anything to do with 
the strategy of the game—the 
winner was arandom choice. 
The existence of people who 
perform consistently better 
than beginners and the 
internal feeling of ‘working 
things out’ when you are 
playing such a game, both 
suggest that humans do havea 


‘program’ inside their heads for 
solving the problems they 
present. If you try to explain, 
however, the way you play 
chess or draughts you’re very 
likely to fail. You might be able 
to manage vague 
generalisations or very 
complicated justifications for 
particular moves but, if you try 
to write a program to play in 
your place, you will soon 
discover how poor your 
knowledgeis. 

All this leaves usin a rather 
confused state of affairs. There 
are many problems that 
humans solve that are very 
difficult if not impossible to 
reduce to a set of rules that 
guarantee a solution. 


Honourable Heuristics 
Traditionally a programisa 
list of instructions for giving a 
sure solution to a problem or 
reporting that no solution 
exists. Such a list of 
instructions is called an 
Algorithm and constitutes the 
core of computer science and 
programming to date. 
However, as already pointed 
out, there are many problems 
that we have not found 
algorithmic solutions for and if 
computer science is to develop 
we must make progress in 
these unexplored areas. 
Examining the way you solve 
problems often reveals that 
what you are doing is not using 
an algorithm but applying a 
loose collection of rules that 
‘seem’ to work. For example, in 
chess you might hold to the 
rule ‘control the middle of the 
board’. Now, while this and 
other rules like it cannot 
guarantee to find a solution (ie, 
produce a win) they make it 
more likely that you will get 
closer to one. A rule that tends 
to get you closer to a solution is 
known asa heuristic and while 
it might seem that a heuristic 
is a ‘second class’ algorithm 
this is far from the truth. 
Heuristics may not be able to 
guarantee a solution, and they 
cannot tell you when a solution 
doesn’t exist, but they can be 
used in a wide range of- 
situations and when they do 
come up with a solution it’s 
often in much less time than an 
algorithm would take for the 
same problem. The future of 
computer science and 
programming is almost 
certainly going to be more 
about heuristic and combined 
heuristic-algorithmic 
approaches to problem solving. 
Finding a heuristic still 
seems like a very difficult task 
and perhaps we are not much 
better off than before. The sort 
of heuristics that humans use 
are often difficult to discover 


and difficult to express. This is 
not too much ofa problem since 
we are trying to find heuristics 
that are effective when carried 
out by acomputer. Itiseasier . 
to find simple heuristics and 
allow computers to apply them 
repeatedly at speed, or in very 
clever ways — it’s not so much 
the quality of the heuristic that 
matters, it’s the way that the 
computer uses it. You could say 
that a simple heuristic applied 
a great many timesis likely to 
be as good as a complex 
heuristic applied few times; 
though such generalisations 
are by no means the whole 
truth. An excellent way of 
demonstrating the heuristic 
approach is to apply it toa 
simple game (this doesn’t 
imply that heuristics have 
currently no serious 
applications). 


Shifting Squares 

Most people will be familiar 
with what we'll call the ‘tile 
game’. The most basic version 
of the game is to take 8 tiles, 
numbered 1 to 8 and place 
them randomly into a square 
pattern leaving one empty 
space (Fig la). 


(a) 


(b) 


Figure 1. Initial (a) and final (b) 
positions for the tile shifting game. 


The object of the game is to 
move tiles into the empty 
space, keeping the overall 
square shape, and arrive at the 
final arrangement (Fig 1b). 

A more modern version of the 
tile game is the familiar Rubik 
Cube (it’s interesting to 
speculate upon a program to 
solve that along similar lines). 

Take a look at the listing of 
the automatic tile program 
(Fig 2). Youshould be able to 
see that it is made up ofa 
number of procedures. Each 
one carries out a different part 
of the game and the program is 
acollection of procedures that 
can be used in different ways to 
explore the problem. 

Before you can start to write 
any game-playing program 
you have to decide on how to 


12 
14 
20 
32 
4e 
5@ 
68 
72 
8B 
92 
180 
118 
128 
130 
140 
18088 


1010 
18028 
18038 
1846 
1850 
1268 
1878 
1080 
1896 
11280 
1118: 
1120 
1138 
1140 
11508 
1499 
1506 
1510 
1528 
1530 
1548 
1550 
1568 
1999 
20828 
2018 
2828 
2030 
2048 
2058 
2068 
2070 
2880 
2890 
2180 
2999 
3008 
3818 
3828 
3830 
3999 
4 BOB 
410 
4G28 
4830 
NOU 
4999 
588 
5010 
5820 
5999 
6000 
6010 
6020 
S999 
7288 
7010 
78208 
70830 
TOUR 
7058 
7999 


Figure 2. Listing of the prototype automatic tile game simulator (note 
that line 90 and lines 6000-6999 are deleted from the final version). 


WINDOW 452,236,60,28 
MODE 8 

init: 

print_board 
set_shuffle 
find_space 
REPeat game 

win_pos 

IF S%=® THEN EXIT game 
rnd_mve 

do_move 
MOVE%=MOVE%+1 
print_board 
END REPeat game 


PRINT "SOLVED IN ";MOVE% 
DEFine PROCedure init 


DIM B%(9) 

DIM M$(9,4) 

DIM M%(9) 
Q%=08 

DATA wou weoma3s5 HG 
DATA "359 WLS. ES PR = it 
DATA 2, 32+ 3,4, 352s 352 
RESTORE 1050 

FOR I=1 TO 9 

‘READ M$(IL) 
END FOR I 

FOR I=1 TO 9 

READ M%(I) 
END FOR I 
MOVE%=@ 
END DEFine init 

DEFine PROCedure print_board 
FOR I=1 TO 9 

PRINT Bw(I)3;" "5 

IF I=INT(I/3)*3 THEN PRINT 
END FOR I 

PRINT 

pause_1 

END DEFine print_board 
DEFine PROCedure set_shuffle 
FOR I=1 TO 9 

B%(1I)=I1 

END FOR I 

PR=9 

N%=RND(25 TO 34) 

FOR Zg1 TO N% 

rnd_mve 

do_move 

END FOR 2 
Q%=0 

END DEFine set_shuffle 
DEFine PROCedure find_space 
FOR I=1 TO 9 

IF B%¥(I)=9 THEN P%=I 

END FOR I 

END DEFine find_space 


DEFine PROCedure win_pos 
S%=@ 

FOR I=1 TO 9 

IF I<>B%(I) THEN laden 

END FOR I 
END DEFine win_pos 
DEFine PROCedure pause_1i 
FOR I=1 TO 50®@ 

END FOR I 

END DEFine pause_1 
DEFine PROCedure rnd_mve 
I%=RND(1 TO MOEN) 
J%=M$(P%, 1%) 


END DEFine rnd_mve 
DEFine PROCedure do_move 


T%=B% ( P% ) 
B%(P%)=B%(J% ) 
B%(J%)=T% 3 
Q%=P% 

PM%=I% 

END DEFine do_move 
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represent the ‘board’. For the 
tile game it is easier to ignore 
the fact that the board is two 
dimensional and use the array 
M% with nine elements, one for 
each position that a tile can 
occupy. Each position is 
numbered so that when the 
final arrangement is reached 
tile one will be in M%(1), tile 
two in M%(2) and so on. The 
empty space can be 
represented by any convenient 
symbol but it makes life easier 
ifit is anumber and 9 is the 
most obvious choice. To find 
out which tile is at position 1, 
simply look at M%(1). 

Using this representation, it 
is easy to print the board out 
(procedure print_board) and to 
check to see if the final winning 
position has been reached 
(procedure win_pos). It is not 
quite so easy, however, to set 
up a starting position. The 
problem is to arrange the tiles 
in arandom order such that 
they could have been produced 
by legal moves of the tiles. If 
youjust generate a completely 
unconstrained random order 
for the tiles you can produce a 
startling arrangement that 
cannot be moved to the final 
position. (The reason is 
because there are two versions 
of the tile game, alefthanded 
version anda righthanded 
version and you cannot convert 
one to the other using only 
legal moves!) The solution is to 
set the board up in its final or 
target position and then 
‘scramble’ it by way ofa 
random sequence of legal 
moves. Procedure set_shuffle 
sets up arandom board by 
shuffling a board previously 
set up in the final position. This 
has the additional advantage 
that the difficulty of the 
problem can be controlled by 
the degree of shuffling. The 
more the board is shuffled 
away from the final position 
the harder it should be to solve. 
(It might be interesting to test 
this proposition — Ed). 

The final problem is to detect 
illegal moves, The quickest 
way todo this is to set upa 
table that lists all the possible 
moves for any position of the 
‘space’ (the 9 in this 
representation). If you look at 
procedure init you will see that 
the string array M$ is 
initialised to contain lists of 
legal moves. For example ifthe 
‘space’ is at position 3 on the 
board then looking at M$(3) 
gives the string ‘26’ which 
should be taken to mean that 
youcan move the tile in 
position 2 or the tile in position 
6 into the ‘space’ but no other 
moves are legal. This easy 
representation of legal moves 
for any position of the ‘space’ is 


the main reason that the tile 
game can be programmed 
efficiently in SuperBasic. 
The only other procedure 
that deserves mention at this 
stage is procedure do_move, 
which will make any move 
specified by P%, the current 
position of the ‘space’, and J%, 
the position of the tile to be 
moved into the ‘space’. 
Obviously this is just a swap 
between M%(P) and M%(J) 
and the new position of the 
‘space’ is J % which can be 
placed into P% to keep the 
current position updated. 


Brains Or Brawn? 
Using just these procedures it 
is possible to write a crude tile 
game program. Procedures 
inti, print_board, set_shuffle 
and find_space are called first. 
This part of the program is 
always the same and simply 
sets up the legal move table, 
initialises the board, and then 
prints it out. Procedure find_ 
space has not been mentioned 
before, but its role is to locate 
the position of the ‘space’ and 
place it in P% after the board 
has been shuffled. This only 
has to be done once because the 
position of the ‘space’ is tracked 
by procedure do_move and is 
alwaysin P%. Finding the 
solution begins with a check to 
discover if the solution has 
already been found by calling 
procedure win_pos. If it hasn’t 
(ie, S%<>0), then the only 
thing to dois ‘make amove. In 
this first simple program the 
move to be made is picked at 
random by procedure rnd_ 
mve. This is acting as a ‘move 
generator’. Picking a legal 
move at random is easy with 
the legal move table, M$. If 


' there are three possible moves 


then all we have to dois 
generate a number between 
one and three and extract the 
corresponding character from 
the string M$(P). The number 
of legal moves for the position 
P% is stored in M%(P). Line 
6010 generates the random 
number between 1 and 
M%(P%) and line 6020 picks 
the correct characterfrom 
M$(P%). This random move is 
then carried out by calling 
procedure do_move. The board 
is then printed and the whole 


cycle repeated, beginning with . 
. the check to see if the final 


position has been reached. 

It might be imagined that 
such a simple problem could be 
solved by computer using 
random moves ina fairly short 
time. After all, the computer 
works so fast that it can afford 
tomake many hundreds of 
wrong moves before finally 
making aright one. The truth 
is that even though a computer 
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DEFine PROCedure one_move 


C%=-5 
FOR I=1 TO M%(P%) 
K=M$(P%, 1) 
IF K<>Q% THEN 
dist_chnge 
IF E%>C% THEN 
I%=K 
CH=ER 
END IF 
END IF 
END FOR I 


END DEFine one_move 

DEFine PROCedure dist_chnge 
E%=P%-B%(K)-INT( (P%-1)/3)*3 

E%=ABS (E%+INT( (B%(K)-1)/3)*3) 
E%=E%+ABS(INT( (P%-1)/3)-INT((B%(K)-1)/3) 
%=K-B%(K)-INT((K-1)/3)*3 

F%=ABS (F%+INT((B%(K)-1)/3)*3) 

F%=F%+ABS (INT( (K-1)/3)-INT( (B%(K)-1)/3)) 


EX=FX-E% 


END DEFine dist_chnge 


Figure 3. The two procedures which replace rnd_mve in the final version. Note that 
two lines replace line 90 from fig 2; ‘85 one_move’ followed by ‘95 dist_chnge’. 


can make many random moves 
it still takes a long time to find 
the answer. I have yet to see 
this simple method yield an 
answer even after running it 
one hundred thousand moves! 


Common Sense 

Ifyou watch the random 
movements produced by the 
previous program you cannot 
help but despair as it fails to 
take even the most obvious 
move that would improve the 
situation. Even ifit gets within 
one move of success it’s just as 
likely to take the wrong option 
and start to disorder the 
pattern again! An observer 
quickly comes to the conclusion 
that there must be a better 
approach to the problem, even 
though no algorithm exists for 
its solution. 

If we were to have some 
measure of how far away from 
the final arrangement the 
current arrangement was, 
then we could use the fairly 
obvious heuristic — select the 
move that takes the 
arrangement ‘closer’ to the 
desired arrangement. The only 
problem is what do we mean by 
‘closer’. Looking at the current 
position of any tile, you can 
describe how far itis away from 
its final position by counting 
how many horizontal and 
vertical moves it would take to 
move to that final position 
(ignoring the ‘space’). For 
example the 6 in figure 4 could 
be moved to its final position by 


Figure 4. Another possible arrangement 
for the tile set-up positions. 
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one move down and two moves 
across — it’s three moves from 
‘home’. Notice that it doesn’t 
matter that you couldn’t move 
the 6 along this route becase 
the ‘space’ is in the bottom left 
corner. We are only interested 
in using this as arough 
measure of how far the 6 is 
from its final place. This 
measure is knownas the ‘city 
block distance’ because it is the 
way distance is measured 
between two points if you have 
to walk via streets laid out at 
right angles. To summarise 
how far the entire board is from 
its final position we could work 
out how far every tile is from its 
final place and add up the total 
number of moves. 

So, we now have one possible 
meaning of the word ‘closer’ in 
our heuristic. We examine 
each of the possible moves and 
work out the distance between 
the final arrangement and the 
one that would result if we took 
the move. Obviously we should 
take the move that gets us 
closer to the final 
arrangement. In practice, 
working out the distance of the 
entire board takes rather too 
long and we can simplify things 
by noticing that the move to 
select is the one that produces 


the largest change in the 
distance toward the final 
arrangement. Thatis, we are 
not interested in the actual 
value of the distance, only in 
making it smaller. The 
practical result of this 
observation is that as we only 
move one tile at a time it is easy 
to find the change in the 
distance brought about. The 
new heuristic is: 

—work out the current 
distance of the tile to be 
moved from its home 
position 

—work out the new distancé 
that the tile would be from 
its home position if it was 
moved 

—work out the difference 
between the above, which 
gives the change in the 
overall distance if the tile 
was moved. Then choose 
the move that produces the 
largest change toward the 
final position. 

Altering the tile program to 
adopt this heuristic involves 
writing two new procedures 
(one_move and dist_chnge) to 
replace the random move 
generator procedure rnd_mve. 
These are shown in figure 3. To 
run the new version of the 
program alter line 90 to call 
procedure one_move instead of 
rnd_mve. 

Procedure one_move ‘scans’ 
through each possible move 
and calls procedure dist_chnge 
to work out the change in 
distance that would be 
produced if the move were 
made. The move with the 
largest change is picked by line 
8060. The structure of the 
procedure dist_chnge may 
appear difficult but all that’s 
being done is the calculation of 
city block distances for each 
position (lines 9010/9020 and 
9040/9050) and then finding 
the differences (line 9070). 
Table 1 summarises the 
program blocks. 

If you run the new version of 
the program you might be 
lucky and see a solution in less 
than 100 moves. On the other 


TABLE 1 


PROCEDURE 


DESCRIPTION 


init 


Defines arrays and legal move table 


print_board 


Prints board 


set_shuffle 


Shuffles the tile positions 


find_space 


Finds the current position of the ‘space’ 


and places it in P% 


win_pos 


Checks for winning position, S% = 0 indicates 


that final position has been reached 


pause_l 


General purpose delay procedure 


rnd_mve 


Select a move at random 


do_move 


Performs move of tile in M% (J%) to M%(P) 


one_move 


Finds ‘best’ move 


dist_chnge 


Calculates evaluation function 


hand you might not get a 
solution after thousands of 
moves — thisis a heuristic not 
an algorithm and therefore 
cannot guarantee a solution. 
On average the program will 
solve one in three problemsin 
under 100 moves, so if you are 
unlucky try again witha 
different board. 


Building Success 
Changing from making 
random moves to applying the 
heuristic is very small in terms 
of programming but it does 
provide a dramatic 
improvement in performance. 
The example that the random 
move selection could not solve 
in over one hundred thousand 
moves was solved in 51 moves 
using the heuristic. 

This does not mean there are 
no problems with the method. 
Some of these difficulties are 
instructive in themselves and 
deserve further study. For 
example, sometimes the 
program ‘gets stuck’ repeating 
the same set of moves over and 
over again. One reason for this 
is due to there being a contest 
for ‘best move’ when there’s a 
tie. The first move in the legal 
move table is always taken. 
This could be changed, for 
example, toa random selection 
of tied moves (remember there 
is no guarantee that the 
heuristic will solve the 
problem, but it is better than 
random selection and 
considerably better than no 
solution at all). 

The heuristic used to solve 
the tile game is very simple — 
‘examine each posible move 
and take the one that produces 
the maximum reduction in the 
distance between the current 
arrangement and the target 
arrangement’. This is 
intuitively sensible because 
each move tries to take us 
closer to the answer. However, 
if you watch a person playing 
the tile game you will notice 
that moves sometimes make 
the distance greater. What this 
suggests is that it is sometimes 
worth temporarily going away 
from the solution if this gains 
an advantage in later moves. 
The conclusion is that it isn’t 
always enough to evaluate how 
good the very next moveis. 
You have to evaluate a move in 
terms of what moves can follow 
it. In other words, you have to 
‘look ahead’. This is where the 
speed and power of computers 
really comes into their own. A 
problem can sometimes be 
solved by investigating the 
effects of making a long 
sequence of moves using a 
simple heuristic and this idea 
will form the subject of next 
month’s article. 


Write programs to unlock the multitasking power of your QL! 
Use Metacomco' s much acclaimed Development Kits to create the soft- 
ware for your QL: Use Assembler for its speed, and for access to the QL’s 
many features; use BCPL for systems programming; writing games, 
utilities, and applications packages, use LISP for manipulating data 
structures, and for il the world of artificial intelligence. 


ASSEMBLER £39.95 "is 


> Standard Motorola 68000 BCPL at a 

mnemonics. £59.95 "Sox 

> English error messages. > True compiler. 

> Produces code which can be > Multiple BCPL programs can run 

EXECed, and run as a palin iii LISP £59.95 “\oxe" 
concurrent job. > Full runtime library includes > Full support of QL features 

> External references allow linkage | interfaces to QDOS graphics, file | including window graphics, and 

to high level languages. operations, window handling, etc. | screen handling. 

> Integral linker allows assembler | > Exception handling provides > Compatible with Acornsoft Lisp 
programs to be linked together. diagnostics for debugging. for the BBC micro. 
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or relocatable code can be produced.) > Assembler and BCPL modules | > Structure editor allows alteration 
> Conditional assembly. can be linked together. of data structures. 

> Large range of directives. > 32-bit variables use the fullQL | > Prettyprinter displays programs 


> Fully formatted listings. address space. 
> 30 character variable names and 


32-bit values. 


in structured format. 

> Tracer to ajd in debugging. 

> Garbage collector automatically 
recovers spare memory space. 

> 28-bit integers and 250-character 
names. 


Phone today, or post this coupon 


Each language is supplied as a 
complete Development Kit 
which includes the software 
(on a Microdrive Cartridge), 
Metacomco's popular full 
screen editor, and user 
manual. 


to: Metacomco, 26 Portland Square, 
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Silicon 
EXPress 


NSIDERDISE 


Our new QL disk interface is a breakthrough in modern 
technological design. It is the first in a range of INSIDER 
BOARDS manufactured by Silicon Express, utilising the 
tremendous expansion potential of Sinclair's 
professional, personal computer. The software has been 
designed for us by the author of QDOS to ensure total 
compatibility with all existing QL file commands, 
machines and Psion software revision packages. 


Unlike other disk interfaces already on the market, our 
INSIDER BOARD fits snugly into the case of the QL, 
connecting to the main expansion port; so there’s no 
problem with protruding PCB’s which, if knocked, could 
lose you irreplaceable data and which can add over 2” 
to the length of your microcomputer. 


_This double density system is compatible with all 3”, 
3%,’ and 51," independently-powered disk drives 
(although we recommend our own for added data 
security). It can support two drives in any combination 
of 40 or 80 track, single or double-sided, thereby 
offering you a storage capacity of 1.4 megabytes 
(formatted). Typically, it allows you to boot ‘Quill’ in 
under 10 seconds. The system is expandable to allow 
you to further upgrade your QL at a later date. 


You can purchase the INSIDER BOARD on its own for 
£99 + VAT or as part of a disk package with prices 
starting from £217 + VAT. In addition, we are offering 
double-sided double density 96TPI coloured diskettes - 
the ideal storage media for your valuable data. 


For immediate despatch of goods you can order now 
by phoning us on Leicester (0533) 374917 quoting 
your Access card number. 


Or fill in and post the coupon — no stamp required 
— and we will despatch your goods within 14 days. 


The interface carries a full two year warranty and is 
supplied complete with a comprehensive user manual. 


Sinclair, QLand QDOS are registered trade marks of Sinclair Research Ltd. 
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Golf 

RShergold & D Tose 

What’s extraordinary about 
this golf simulation is that it 
packs in so much detail. 
Moving from fairway to green, 
REMark **** GOLF -— QL ugscreen along the horizontal. 
REMark 

REMark R.Shergold and D.Tose 


BORDER 0,0:SCALE 100,0,0:PRINT "Please Wait" 
holes = 


OOe#NOUSUNK 


INPUT#0,\"Load Your Own High Scores ? 


_THE PROGS 


Sprite design is the theme of this month’s section — programs 


of all descriptions are considered. Send them to ‘The Progs’, 


QL User, Priory Court, 30-32 Farringdon Lane, EC1R 3AU. 


you can choose to play on up to 
50 different courses of varying 
difficulty. The usual hazards 
abound — lakes, rivers, 
bunkers and trees. The course 
record is set with opportunities 
to go for birdies, eagles and 
even albatrosses(?). Your 
scorecard may be saved and 
congratulations are in order if 
you beat the likes of Faldo, 
Watson, Ballesteros or Kite. 
Finally, to play the game you 
use the space bar to toggle the 
power behind your stroke and 
enter clock directions. For 
example, an entry of “3.0” 
would send your ball careering 
from left to right across the 


9rinitialise:CLS:max = 100 
CLS#0: BORDER#O0, 2,4: course=0: CLS#0 


(y/n) “san 


IF an#="Y" OR an¢="y" THEN dataload 
CLS#0:PRINT#0O; \"SPACE=PLAY : 


ANY KEY=TOPSCORES" 
pointer $=INKEY# (-1) 

IF pointer#<>" " THEN top 

pointers=" ":CLS#0 

INPUT#0; "Number of course? (1-100) "“scourse 

IF course>100 OR course<O THEN GO TO 13 
RANDOMISE course 

DIM shoots(holes):DIM pars (holes) 
PAPER#0,0:CLS:sc1=0 

FOR hole = 1 TO holes 

shots=0: fini shed=0 

PAPER 7,4,1:CLS:CLS#0 

trees 75:fairway:trees 45:I1F RND(O TO 1)=1 THEN 
water 

ELSE 

lake 

END IF 

green 

length=800-20*c+RND(O TO 20) 

IF length<=270 THEN par =3 

IF length>270 AND length<=395 THEN par =4 

IF length >395 THEN par=5 

CSIZE.0,0: INK O:PRINT " Hole "shole; 

PRINT " Length "s;length; 
PRINT " Par "spar 

AT 19,90:PRINT “score "3sci;" Course "scou 
REPeat club 

pow: PAUSE 50: ang: shots=shots+1:shoot:test 

IF finished THEN EXIT club 

END REPeat club 

PAPER 1: INK 7:CLS#0 
PRINT#O," It’s in, well played":PAUSE 40:CL 
shoots (hole) =shots: pars (hole) =par 

IF shots=1 THEN hole_in_one 

IF shots<=par THEN 

CLS#0:r=par-shots:SELect ON r 

ON r=O0:PRINT#O, "A Par, Not Bad" 

ON r=1:PRINT#O, "Well played, A birdie" 

ON r=2:PRINT#O, "Fantastic shot, An Eagle" 
ON r=3:PRINT#O, “An Albatross..incredible!" 
END SELect 

shoots (hole) =shots: pars (hole) =par 

scorecard 

ELSE :CLS#0 

PRINT#O, shots-par'! "over par on this hole." 
shoots (hole) =shots: pars (hole) =par:scorecard 
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END IF 
sci=sci+shots-—par:PAUSE 200 
END FOR hole 
PRINT#0, “Overall you were "; 
IF sci THEN PRINT ABS(sci);3" "5 
IF sci=0 THEN PRINT "on par" 
IF sci>O THEN PRINT “over par" 
IF sci<O THEN PRINT "under par" 
IF sci<score(course) THEN top:datasave 
CLS#0:CLS: scorecard 
CLS#0:PRINT#O,"Hit Space Bar To Play Again" 
IF INKEY#(-1)=""" THEN GO TO 7 
GO TO 65 
DEFine PROCedure pow 
CLS#0: INK#0,7 
PRINT#O," ce) So 
AT#O, O,O:PRINT#O, "Space Bar "\"Selects" 
FOR p = 0 TO 200 
IF CODE (INKEY#)=32 THEN GO TO 76 
BLOCK#0,2,5,p+200,20,2:NEXT p 
IF INKEY#(30)<>"_" THEN GO TO 69 
Power=INT (p/2) 
IF power=0 THEN GO TO 49 
END DEFine 
DEFine PROCedure ang 
CLS #0 
PRINT #0;"angle (0-12)"\\"e.g 12 = 3" 
AT#O0,0,14: INPUT#O, angle: angle=angle*PI/6 
IF power >max THEN 
CLS#0: PRINT#O; "You Have Fluffed It!"s power=powe 


100" 


angle=angle+RND(-20 TO 20)/100:PAUSE 30 

max =100 

END IF 

END DEFine 

DEFine PROCedure shoot 

ballx=INT (ballx+SIN (angle) *525*power /length) 


bally=INT (ball y-COS (angle) #525*power /length) 
POKE_W add,color 


POKE_W add+128,colori 


IF bally<26 OR bally>204 OR ballx<16 OR ballx>2 
THEN lost 


look:ball 
END DEFine 
DEFine PROCedure ball 


add=INT (131072+128*bally+INT (ballx/4) *2) 
color=PEEK_W (add) 


100 color1=PEEK_W (add+1i28) 


101 
102 
103 
(ad 
104 
105 
PEE! 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
/bi 
124 
125 
126 
127 


bit=(ballx MOD 4)*2:bitt=(255-2%(7-bit) #1.975) 
IF bitt-INT(bitt) THEN bitt=bitt#1.6 


newcol=(bitt && PEEK (add))*254+(bitt && PEEK 
d+1)) 


POKE_W add,newcol 
newcoll=(bitt && PEEK 
K (add+129) ) 

POKE_W add+128,newcol1 
FOR n=O TO 4 

POKE_W add,color:POKE_W add+128,colori 
PAUSE 10 

POKE_W add,newcol:POKE_W add+128,newcoli 
PAUSE 9:END FOR n 

END DEFine 


POKE_W add,color:POKE_W add+128,colori 
PAUSE 10 


POKE_W add,newcol:POKE_W add+128,newcol 1 

PAUSE 9:END FOR n 

END DEFine 

DEFine FuNction getcol (x,y) 

LOCal add 

add=INT (13107241 28%y+INT (x/4) #2) 

bit=(* MOD 4)*2:bitt=(2*(7-bit)) 

grn=4*((bitt && PEEK (add))<>0) 
bitt=(2°(7-bit) #1.5) :rb=(bitt && PEEK (add+1)) 
Ct#S 

rb=(bitt && PEEK (add+1))/bitt#3:RETurn grn+rb 
END DEFine 

DEFine PROCedure fairway 

INK 4: a=50:b=25:blockx=S:blocky=b+90 


(add+128))*#256+ (bitt x&& 


ate 


128 
129 
130 
131 
132 
133 
134 


TQ 7) 


135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 


0 TO 10) 


148 
149 
150 
151 
152 


0 TO 10) 


153 
154 
155 
1546 
157 


FILL 0 

FOR f = 0 TO 170 STEP .7 

b=INT (b-1+RND(O TO 2)) 

IF INT(#)=150 THEN LET c=b:e=a 

IF f> 70 AND RND (0 TO 100)<2 THEN 

INK & 

FILL 1:ELLIPSE #-10,a-RND (0 TO b) ,4,.7,RND(O 


INK 4:FILL oO 

END IF 

IF b¢15 THEN LET b=15 

IF b>35 THEN LET b=35 

IF a-b<10 THEN LET a=10+b 

IF a>90 THEN a=90 

LINE f,a TO f,a-b 
a=INT(a—-2+RND(O TO 4)) 

END FOR 

END DEFine 

DEFine PROCedure green 

FOR g = 1 TO S:FILL 1: INK 6,4,3 
ELLIPSE 150,e-c/2, (c-g) /2,.7-RND(O TO -1),RND( 


IF g/2 = INT(g/2) THEN END FOR g 
INK 6:FILL 4 

X=RND(O TO c)-c/2:y=SORT (c“2/4-x%~2) 
aa=RND(O TO 1):IF aa<.5 THEN LET y = 


= -y: 
ELLIPSE x+150,y+te-c/2,c/5,.46-RND(O TO - 2) ,RND( 


END FOR g 


=x=RND (-c/4 TO c/4):xz=RND(-c/4 TO c/4):FILL O 
INK O:CIRCLE 150+zx ,e-c/2+xz,.6:INK 7 

LINE 150+zx,e-c/2+xz TO 150+zx ,e-c/2+c/5+xz 
INK 2:LINE 150+2x,e-c/2+c/5+xz TO 152+zx,e-c/2 


+c/6+xz 


158 
z 

159 
160 
161 
162 
143 


197 
198 


LINE 152+zx,e-c/2+c/é+xz TO 150+zx ,e-c/2+c/4+x 


holex=150+zx:holey=e—-c/2+xz 

holex=INT ( (holex/166*448+33) /2) 
holey=INT ( (100-holey) *2+14.5) 

BLOCK €/2.5,C/2.5,blockx-3,blocky,7 
ballx=19: ball y=129+INT (c/4) 

ball:END DEFine 

DEFine PROCedure water 

y=0:x=RND (50 TO 350) 

BLOCK 7,4,x,y,5 

y=y+4:x=x-3+RND (O TO 7) 

IF y=200 THEN GO TO 171 

GO TO 147 

END DEFine 

DEFine PROCedure lake 

IF RND(O TO 2)=1 THEN END DEFine 
FILL i: INK 5 

x=RND(30 TO 175):y=RND(30 TO 70) 

FOR o=-2 TO 2: ji=y+RND(-5 TO 5) 
ELLIPSE x+(4%0) ,31,20,.465,RND(1 TO 7) 
NEXT o 

FILL oO 

END DEFine 

DEFine PROCedure trees (ee) 

INK 4,3,3 

FOR f = 1 TO ee 

FILL 1i:sok=RND(i5 TO 75) 

CIRCLE RND(1 TO 175) ,ok,1+RND(O TO 10)/7 
FILL oO 

END FOR f 

END DEFine 

DEFine PROCedure look 

ci=getcol (ballx,bally) 

c2=getcol (ballx+i1,bally) 

c3=getcol (ballx,bally+1) 

c4=getcol (ballx,bally+1) 

END DEFine 

DEFine PROCedure test 
hazard=0: bm=ABS (bal 1x—holex) 

IF bm<=1 AND ABS (bally—-holey)<=1 THEN 
POKE_W add,color:POKE_W add+128,colori:finish 


ed=1:END DEFine 


199 
200 
201 
202 
203 
ine 
204 


TT 


END IF 
IF ci=& AND c2=6 OR c1i=6 AND c3=6 THEN bunker 
IF c1=5 THEN wet 

IF c1=7 AND c3=4 OR c1i=4 AND c3=7 THEN rough 
IF cl=4 AND c2=4 OR c1i=4 AND c3=4 THEN END DEF 
IF ci=3 OR 


c2=3 THEN branches 


THE PROGS 


205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
214 
217 
218 
219 
220 
221 


222 


223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
-S)) 
240 
241 


IF ci=7 AND c2=7 THEN END DEFine 
put 

hazard=0:PAUSE 100:CLS#O 

END DEFine 

DEFine PROCedure bunker 

IF hazard THEN END DEFine 
hazard=1 
CLS#0:PRINT#O\" 
max=25:END DEFine 


BUNKERED!” 


‘DEFine PROCedure wet 


IF hazard THEN END DEFine 

hazard =1:CLS#0 

PRINT#0; "WATER '''. Back to tee" 

ball x=19: ball y=129+INT (c/4) 

POKE_W add,color:POKE_W add+128,colori 
ball 

END DEFine 

DEFine PROCedure rough 

IF hazard THEN END DEFine 

hazard =1 

CLS#0O:PRINT#O;"You Are In The Rough" 

max =75:PAUSE 50 

END DEFine 

DEFine PROCedure put 

REPeat putting 

dist=S@RT ( (holey-bally) “2+ (holex—ballx) 2) 

dist=dist/(224/length) 

dist=INT (dist*100)/100 

IF dist>50 THEN END DEFine 

IF hazard THEN END DEFine 
hazard=1:CLS#0 

PRINT#O;"You Are "sdist:" yards from the hole 

PAUSE 100: BLOCK #0,440,4,0,32,4 

OVER#O,-1 

ang] e=ATAN (ABS (hol ex—bal1lx) /ABS (ball y-holey+i1E 


IF holey*>bally THEN 
IF holex<=ballx THEN 
angle=angle+PI 
ELSE 
angle=PI-angle 
END IF 
ELSE 
IF holex<=ballx THEN 
angle=2*PI-angle 
END IF 
END IF 
putx=31:puty=24 
CURSOR#0, putx,puty:PRINT#O, 
FOR angi=0 TO 460 STEP 2 
FOR plot=0 TO i 
LINE#0,60,72 TO 62-462*SIN(RAD(ang1)) ,72-62*COS 


Yo" 


(RAD (ang1)) 


256 
257 
258 
259 
260 
261 
262 
D(a) 


281 
282 
283 
284 


END FOR plot 
IF INKEY$=" 
END FOR angi 
IF INKEY$(10)<>" " THEN GO TO 2535 

FOR a=angl TO O STEP -2 

FOR plot=0 TO 1 

LINE#0,60,72 TO 62-62*SIN(RAD(a)) ,72-62*CO0S (RA 
) 

END FOR plot 

END FOR a:CURSOR#0,putx ,puty:PRINT#0; "0" 
power=ang1/7: shoot: test: shots=shots+1 

PAUSE 1+49*NOT finished 

IF finished THEN EXIT putting 

END REPeat putting 

OVER#O ,0O 

END DEFine 

DEFine PROCedure branches 

IF hazard THEN END DEFine 

CLS#O:PRINT #0;"You Have Hit A Tree!" 
ballx=ballx—-2: bally=bally+RND(-1 TO 1) 

POKE_W add+128,colori:look:ball:test 

hazard=1 

END DEFine 

DEFine PROCedure lost 

CLS #0 

PRINT #0;"Ball Out Of Bounds"\"penalty shot" 
IF ballx<16 THEN ballx=16 

IF ballx>238 THEN bal1lx=238 

IF bally>204 THEN bally=204 

IF bally<26 THEN bally=26 


"THEN GO TO 260 
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311 


shots=shots+i:PAUSE 50 

END DEFine 

POKE_W add,color:POKE_W add+i,colori 

holed=1:END DEFine 

DEFine PROCedure hole_in_one 

PAPER 1:INK 7:CLS 

INK 7:FOR f= 1 TO 130 STEP 9 

CURSOR £,50:PRINT " Hole I":NEXT 

FOR f= 320 TO 212 STEP -—9:CURSOR £,50:PRINT "n 
"NEXT 

PRINT \\" Superb Shot!!!":PAUSE 200: 

PAUSE 200:CLS 

END DEFine 

PAPER O:CLS:CSIZE 3,1:INK 7:CLS#0 

CLS#0:PAPER 1:INK 7:CSIZE 0,0:CLS 

DEFine PROCedure top 

PAUSE 100:CLS#0:CLS 

IF pointer$<>" " THEN GO TO 305 

PRINT "Well done-a course record" 
INPUT#0,"Your name? "s;name# (course) 

score (course)=sci:PAPER 1:INK 7:CLS 

start=1:finish=50:MODE 512 

CLS:FOR f = start TO finish ; 
IF f=course THEN INK 2:PAPER & 

PRINT #3" “sname#(#,1 TO 10)3" 
INK 7:PAPER O:NEXT 

IF start = 51 THEN 

CLS#0:CSIZE#0,1,0:PRINT #0,\" 


“sscore(f), 


Hit Any key" 


312 
313 


360 


alesteros","G.Norman" 


PAUSE 10000:MODE 256:CSIZE#0,0,0:END DEFine 
ELSE 


CLS#0:CSIZE#0,1,0:PRINT#O,\" 
Key to see next 50" 


PAUSE 10000: start=51: finish=100:CSIZE#0,0,0:60 
306:END DEFine 


Hit 


’ DEFine PROCedure scorecard 


PRINT\ 

PRINT " Hole","Par","Score" 

PRINT: tot=0: totpar=0 

FOR f= 1 TO holes 

di f=shoots (f)-pars(#) 

SELect ON dif=1 TO 20 

ON dif=-1:d$="Birdie" 

ON dif=—2:d$="Eagle" 

ON dif=—-3:d%="Albetros" 

ON dif=0:d$="Par" 

ON dif=1 TO 20:d$="Bogey "& dif 

END SELect 

IF shoots(f)=0 THEN d¢="—-—-—— ue 

PRINT " "34,pars(f)," “sshoots(f);" ae; 
INK 7:PRINT d#:INK 7 

tot=tot+shoots (f):totpar=totpar+pars (Ff) 

NEXT f 

PRINT \,totpar," "stot," "3:PRINT tot-totpar 
PRINT\\"Course Record "sscore(course) ;" by "s 
PRINT name#(course,1i TO 10) 

END DEFine 

DEFine PROCedure datasave 

DELETE mdvi_golf_data 

OPEN_NEW #9,mdvi_golf_data 

FOR n=1 TO 100: PRINT#9,score(n) sNEXT n 


FOR n=1 TO 100:PRINT#9,name#(n, 1 TO 10) 
NEXT nm 


CLOSE#9 

END DEFine 

DEFine PROCedure dataload 

OPEN_IN #9,mdvi_golf_data 

FOR n= 1 TO 100: INPUT#9,score(n):NEXT n 


FOR n= 1 TO 100: INPUT#9,nanfe$(n,1 TO 10) 
NEXT n ei 


CLOSE#9 
END DEFine 
DEFine PROCedure initialise 


DIM cse(100):DIM score(100):DIM name# (100,16) 
RANDOMISE 20000:RESTORE 6 
FOR f= 1 TO 100° 


LET score(#)=RND(-9 TO —4):READ Player 


}) IF (#/5)=INT(#/5) THEN RESTORE 360 


name#(f,1 TO 10)=player¢ 


DATA "N.Faldo ","T.Watson ","T.Kite *,"B 


361 NEXT 


362 


END DEFine 
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3Dscapes 
Rob Miles 


There are two major ways of 
‘looking’ at a three dimensional] 
surface, one is called ‘isometric’ 
and the other is called 
‘perspective’: This program 
allows you to explore these two 
techniques, which produce 
some very attractive surfaces. 
The height of each part of the 
surface is given at line 730 in 
the function height. By 
plugging your own equations 
in at this line you can produce 
wildly different results — try to 
ensure that the value returned 
does not go outside the range 


100 
110 
120 
130 


RESTORE 


REMark (c) 


xpmult=24: ypmul t=50 


REPeat disploop 
CLS 
setup 
plot 
picsave 
END REFeat disploop 
REMar k 


DEFine PROCedure plot 


+2 to —2 for best results. 

a) 730 a = x-halfx: b = y- 
halfy:z = EXP 
(COS(SQRT (axa + 
b*b)/3))* 1.75 

b) 730 a = x-halfx: b = y- 
halfy:d = SQRT (axa 
+b*b):Z = COS (d/ 
7)x ABS (6-d) 

c) 730 d = SQRT (xxy):z = 
INT (SIN(d/ 

20* PI)*20) — 10 

d) 730 z=xMOD5 

e) 730 a = x-halfx:b = y- 
halfy:d = axa + bxb:z 
= SIN (SQRT (d)) 

f) 740 a = x-halfx:b = y- 

halfy:z = SQRT (axa 
+bx*b)— 15 


REMark 3D Plotter - QL User May 1985 

1985 Rob Miles . 

xlim=20: ylim=20;halfx=xlim/2:halfy=ylim/2 
ximult=140/ (xlimtylim) : yimult=100/ (xlimt+ylim) 


DIM vx (xlim,ylim) ,vy(xlim,ylim) 


250 IF perspective<2 THEN 

260 REMark Perspective Projection 
270 CLS. 

280 setrow xlim:off=0 

290 FOR x=(xlim-1) TO halfx STEP -1 
300 cell x,ylim 

310 FOR y=(ylim-1i1) TO 1 STEP -1 
320 cell x,y 

330 LAY Ry pi 51 

340 NEXT y 

350 NEXT x 

360 setrow O:off=1 

370 FOR x=1 TO halfx 

380 cell x,ylim 

390 FOR y=(ylim-1) TO 1 STEP -1 
400 cell xyy 

410 lay x ,y,-1,1 

420 NEXT y 

430 NEXT x 

440 ELSE 

450 REMark Isometric Projection 
460 CLS 

470 setrow O:off=0 

480 FOR x=1 TO xlim 

490 cell x,ylim 

500 FOR y=ylim-1 TO 0 STEP -1 
510 cell x,y 

520 lay x,y,-1,1 

530 NEXT y 

540 NEXT x 

S50 END IF 

560 END DEFine plot 

570 REMark 

580 DEFine PROCedure lay (x,y,dx,dy? 


INK 34+((x+y+off) MOD 


LINE 
LINE 
LINE 
LINE TO 
FILL 
LINE 
LINE 
LINE 
LINE 


TO 


O:INK 7 
vx (x sy) avy (xy) 


) 
700 END DEFine lay 


710 DEFine FuNction height 


a 


POINT vx (x,y) svy(x,y)? FILL 1 

vx (x, ytdy) ,vy (x ,ytdy) 

vx Oxtdx ,yytdy) ,vy (x+dx ,ytdy) 
vx (xt+dx yy) svy (xtdx yy) 

vx (x sy) svy (x yy?) 


TO vx (x, ytdy) yvy (x, y+dy? 


TO vx (x sytdy) svy (x ,y+tdy?) 
TO vx (x+dx,y+dy) ,vy (x+dx ,y+dy?) 
TO vx (xtdxyy) vy (xtdx,y) TO vx (xy) avy (xy 


(x,y) 


720 REMark Height equation goes here 

730 a=x-halfx:b=y-hal fy:d=SOQRT (a*a+b*b) :z=COS(d/7) 
*ABS (4—-d) 

IF invert<2 THEN z=z*-1i 

750 RETurn z 


760 END DEFine height ; 
770 DEFine PROCedure cell (x,y) 
780 z=height (x,y) 


790 IF perspective<2 THEN 

B00 s=x~hal fx:2=2-5:d=SORT (SORT (z¥z+s*s) +y*y) 
810 vx (x gy) =(s/d) **pmult+72 

820 vy (x ,y)=(z2/d) #ypmult+110 

830 ELSE 

840 vx (xy) =(xty) *ximult+3 

B50 vy Gs yy) = (z-x/2+y/2) *yi mul t+50 


860 END IF 

870 END DEFine cell 

880 DEFine PROCedure setrow(x) 

890 FOR y=0 TO ylim 

cell x,y 

910 NEXT y 

920 END DEFine setrow 

930 DEFine PROCedure setup 

940 MODE 4 

950 WINDOW 512,256,0,0 

960 BORDER 2,4:PAPER O:INK 7:CSIZE 1,0:CLS 

970 UNDER 1:AT 2,20:PRINT “QL Surface Projection" 
980 UNDER O:AT 5,8:PRINT “Perspective (P) "s 
INFUT “or Isometric (1) projection ?";per¢$ 
1000 perspective=per# INSTR "PpIi" 

O IF perspective=0 THEN GO TO 980 
1020 AT 10,15: INPUT "Invert (Y) or (ND 
1030 invert=invé INSTR "YyNn" 

1040 IF invert=0 THEN GO TO 1020 

1050 AT 12,15: INPUT "Filename for save ";f% 

1060 AT 13,15:PRINT "Press S at tone to save" 
1070 AT 15,15:PRINT "Press any key to start plot" 
1080 d$=INKEYS(-1) 

1090 END DEFine setup 

1100 DEFine PROCedure picsave 

1110 BEEP 15000,4,12,40,1 

1120 dS=INKEY$(-1) 

1130 IF d# INSTR "Ss" THEN SBYTES ##,131072,32768 
1140 END DEFine picsave 


Sound Experimentor = | command. Thishas8 

Rob Miles arguments, all of which are 
Unlike most homecomputers | obscure. The only way to 
the QLhasa very limited noise | produce something vaguely 
making capability. What there | melodicis by trial and error. 
is can only be dragged out by The following quickie allows 
using the enigmatic BEEP you to do exactly this. 


100 REMark *#** OL User -Beep experiment 

110 REMark *#** Rob Miles 1985 

120 duration=5000: pitch=i00: pitch _2=O:grad_x=O:gra 
d_y=O:rwrap=0: fuzzy=0: random=0 

130 REPeat sounder 


?"sinvs 


140 CLS 

150 set "Duration (-32768..32767) ?",duration,2 

140 set "Pitch (0..255) ?",pitch,4 : 

170 set "Pitch_2 (0..255) ?",pitch 2,6 | 
$80 set "Grad_x (-32768..15) ?",grad_x,.8 | 
190 set “Grad_y (-8..7) ?",arad_y,10 

200 set "Wrap (0..32767) ?",wrap,12 

210 set "Fuzzy (0..15) ?",fuzzy,14 

220 set "Random (0..15) ?",random,16 


Easel Print 


D Duncan 

The following 7 liner shows 
exactly how to use the graphics 
120 MODE 8:PAPER 2:CLS 
130 FOR n=1 TO 150 

140 
150 
160 NEXT n 


dump provided with EASEL. 
All you need isan EPSON 
compatible printer and the 
EASEL cartridge in mdv2. 


INE 7:FILL 1:CIRCLE n,50,20,.5,-n/2 
INK 2:FILL O:CIRCLE n,50,20,.5,-n/2 


170 REMark Dump to Epson printer 
180 a=RESPR(1024):LBYTES mdv2_gprint_prt,a 
190 CALL a:OPEN #3,serisLIST #3:CLOSE #3 


Programmable 


Function Keys 

Richard Cross 

Those acquainted with the 
BBC micro will realise what a 
bitter disappointment the QL’s 
dumb function keys are. 
However, this ingenious 
program remedies all 
shortcomings. Simply type in 
the SuperBasic listing below 
and RUN it. This creates a 
machine code routine which 
will automatically be saved on 
mdv1 under the name of “key_ 
bytes”. Then, to use the routine 
proper, you need to load it into 
the QL’s memory and callit as 
follows: 

a=resp (1000) 

Ibytes mdv1_key_bytes, a 


100 REMark #*###* 
110 REMark 


Function 


calla 

The routine scans the 
functions keys (on a 50 Hz 
interrupt) and puts in a user- 
defined string by using the new 
command: 

FKEY keynumber, string 
keynumbers range from 1-10 
covering F1-F5 with or without 
[SHIFT]. A string can contain 
amaximum of 48 characters 
and returns ‘Buffer Full’ if this 
limit is exceeded. A line feed 
may be included by using the 
following method: 

FKEY 1, “mode 4:list” &chr$ 
(10) 

This means whenever F1 is 
pressed you will be switched 
into hi-res mode and the 
current program will list 
automatically. 


key definer 


*x*x%% QL USER MAY 1985 


120 REMark **#** Richard Cross 


150 RESTORE 210 
160 a=RESPR (1000) 
170 CLS:PRINT 


“storing machine code" 


180 FOR b=a TO a+330:READ x:POKE b,x 


190 DELETE mdvi_key_bytes: 


330 
200 STOP 


SBYTES mdvi_key_bytes,a, 


210 DATA 52,120,1,16,67,250,0,38,78,146,48 
220 DATA 60,0,249,67,250,1,56,50,252,0,0 

230 DATA 81,200,255, 250,467,250,0,138,65,250,1 
240 DATA 32,33,73,0,4,112,28,78,65,78,117 
250 DATA 0,1,0,14,4,70,75,69,89,0,0 


260 DATA 0,0,0,0,0,81,141, 


52,120,1,18 


270 DATA 78,146,102,82,12,67,0,1,102,78,63 
280 DATA 54,152,0,38,77,80,141,52,120,1,22 
290 DATA 78,146,102,460,12,47,0,1,102,56,50 
300 DATA 31,12,65,0,10,110,52,83,65,49, 250 
310 DATA 0,218,194, 252,0,50,213,193,71,234,0 
320 DATA 2,73,246,152,2,54,54,152,0,103,14 


330 DATA 


12,67,0,48,110,24,93,67,22, 220,81 


340 DATA 203,255,252,52,182,152,0,112,0, 78,117 


350 DATA 
360 DATA 


112,241,78,117,112,252,78,117,112, 251,78 


117,112,17,71,250,0,134,78,65,2,1 
370 DATA 0,59,103,114,74,57,0,3, 215,446,102 
380 DATA 112,80,249,0,3,215,46,115,0,8,1 
390 DATA 0,0,103,2,1146,3,8,1,0,3,103 

400 DATA 2,116,0,8,1,0,3,103,2,116,1 

410 DATA 8,1,0,4,103,2,116,2,8,1,0 

420 DATA 5,103,2,116,4,47,2,112,17,71,250 
430 DATA 0,70,78,65,36,31,12,1,0,1,110 

440 DATA 46,102,2,90,66,47,250,0,68,196, 252 ! 
450 DATA 0,50,211,194,54,17,84,137,36,121,0 
460 DATA 2,128,76,74,67,103,18,18,25,56,120 
470 DATA 0,224,78,148,83,47,96,240,81,249,0 
480 DATA 3,215,46,78,117,0,0,9,1,0,0 

IF buf$<s"" THEN var=buf$ 490 DATA 0,0,0,2,9,1,0,0,0,0,7 

330 AT position,O:PRINT namets" “svari" 500 DATA 2,0,0,32,97,100,100,114,101,0,0 
340 END DEFine set 510 DATA 105 


230 AT 18,0:PRINT "Beep “sduration:","“spitchs","sp 
itch_2:","sqgrad_xi","sgrad_y:","swraps","“sfuzzys", 
"“srandom 

240 BEEP duration,pitch,pitch_2,grad_x,grad_y.wrap 
efuzzy,random 

250 dum$=INKEYS (-1? 

260 END REPeat sounder 
270 DEFine PROCedure set 
280 LOCal buf? 

290. AT position,O:PRINT namets3" "svar 
300 AT position,O:PRINT name#;" "3; 
INFUT buf? 


(name#,var,position?> 
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QUALITY QL PERIPHERALS 
OL aoeaeie BARGAIN PRICES 


interface. The printer which is DEDICATED to the QL; 
Fed up with infrequent Bank statements? Avoid Bank : 


TOTALLY QL compatible. 
charges and keep up to dte with QL BANK ACCOUNT. 
Check your mortgage HP, standing orders! Budget your SUPERB NEW SHINWA CPA80-Q 


bills. Fantastic 13 x 9 Dot Matrix (note Epson is 9 x 9!) 
100 CHARACTERS PER SECOND Bi-Directional printing 
* Automatic posting of Standing Orders & other regular True Descenders on y, p, j, etc. Underlining on command 


° Backspacing Up to 96 columns 
payments or credits. Friction AND Tractor feed built-in Normal, Double size & Italic print styles 


* Delete, amend and even backdate entries. Scroll _ Many, many other advanced features. 
t h ts. elivery, VAT and Insurance included in our price. 
hrough accounts NO HIDDEN EXTRA COSTS 


* é different entry search routines! ONLY £289 

* Postitems to account headings chosen by YOU to suit MICRO-PERIPHERALS DISK DRIVE 
your circumstances. Print out individual accounts & SPECIALLY DESIGNED TO MATCH QL 
summary. eg all payments to Building Society. The High-Speed disc drive plus interface for the QL. 


* Output of Bank statement & accounts to most makes _ (See April ‘QL USER’) 
of printer. Makes automatic use of memory FAST 3.5in Single Disk drive A MASSIVE 720K Storage (.72Mb) 


: emi diel Double sided, 80 Track With FREE UTILITIES disc 
expansions. Easily converted to disc. Completely Boxed With internal Power Supply Unit 


This disk drive complete with the necessary interface 


5 ONLY £295 
Cartridge & Manual £19.95 + 50p p&p. The second Disk drive can simply be plugged in. £165 
Cheques & POs to: 


Limited offer = PRINTER + (FIRST DISK DRIVE + INTERFACE) = £569 
c Box of 10 diskettes for above = £55 
C e Nn Pp r | mM e Ss oftwa re Prices include delivery, VAT, insurance and cables. All peripherals READY-TO-GO 
Cenprime Ltd., Dept.1 There are NO HIDDEN EXTRA COSTS with our prices 
10 Castle Street, RUGBY CV212TP Cheques/Money Orders to: 


vay BUSINESS MICROS & 
oy eee COMMMUNICATIONS LTD. 


18 Oswald Street, Millfield, Sunderland. 
Tel: (0783) 674944 


NEW — FROM TALENT! 


GRAPHIQL 


Create superb colour pictures on your QL with TALENT’s outstanding new graphics package. It's supplied 
on two microdrives — the first holds the master program and a printer dump utility, the second, three 
demonstration pictures. Backup copies can be made. GRAPHIQL comes with a detailed, clearly-written 
instruction manual, outlining the program's many facilities. 


Features include: 


Freehand drawing, 8 colours, optional flash 
Rubber banding, rubber boxes, even rubber 
circles and ellipses 

Variable size texture definition 

Doodle pad 

Colour and texture fill of any shaped area 
User-definable paint brush — any colour 

or width 


Colour list for full colour control 
Re-colour facility 

Magnification with panning 

Mirroring and rotation of blocks of screen 
Air-brush effect 

On-line ‘help’ facility 

Full file-store access 

Printer dump utility 


Text can be included in pictures. The characters can be single or double height with flash and underline. 
GRAPHIOL pictures can be put into BASIC or assembler programs with the sample routines provided. 
Available in March by mail order direct from: 


£34.95 e A 
+ S0p postage & packing a7iek 
COMPUTER SYSTEMS 


Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (24-hour Credit Card Hot-Line) 
SOFTWARE FROM SCOTLAND 
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The ten winners will 
each receive one package of their 
choice from Computer One’s current 
range, including Pascal, FORTH, 
Assembler, M/C Monitor and Typing 
Tutor. 


Study the list of six 
language attributes below and decide 
which four would be the most impor- 
tant in the design of a new general 
purpose language for the QL (to 
replace SuperBasic). 

Once you've decided on the four 
attributes, put them in order of 
priority (most important first) and 
then write your answer on a postcard 
in the same format as the example 
below (only one ordering is allowed): 


eg list — D 
2nd — A 
3rd — F 
4th — B 


Your chance to win one of ten great prizes from Computer One’s extensive range of language/utility packages. 


List of Attributes 

A. Able to accept user command exten- 
sions. 

B. Program lines easy to understand 
and follow. 

C. Comprehensive debugging and error 
reporting. 


D. ‘Efficient use of memory. 
E. Able to integrate system routines. 
F. Direct control of external devices. 


10s HDS Answers must be written on 
a postcard only and in the format 
shown above. Only one entry per 
person or one entry from any one 
address. All entries must be sent to: 


QL User 
C C Competition 
Priory Court 
30/32 Farringdon Lane 
London EC1R 3AU 


(ROSIN CMPVNOH Entries must be 


received on or before 20th May 1985. 


Bpeperesfes The selection of attri- 
butes and final order will be chosen 
by the Editor. The winners will then 
be the first ten entries ‘out of the hat’ 
with the correct list of attributes and 
in the right order. Should there be 
less than ten correct entries, the 
remaining prizes will go to the first 
entries chosen with the correct attri- 
butes but in the wrong order. 

The Editor’s decision as to choice 
and ordering of attributes is final, as 
is the selection of the ten winners; 
though their names will be published 
in a future edition of QL User. 


No employee of EMAP or its associate 
companies, nor anyone connected with 
Computer One Limited may enter this 
competition. 
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LTOOLKI 


Paolo Baccanello investigates 
Sinclair’s latest software 
development kit. 


Written by Tony Tebby (Qjump) and 
marketed by Sinclair Research, the 
QL Toolkit takes over from where 
SuperBasic leaves off. These exten- 
sions to SuperBasic are contained in 
a 9K machine code file called EX- 
TEN_BIN and are loaded in when 
the package is booted up. 

There is a full screen SuperBasic 
editor (ED) with the usual diagnos- 
tics operating on channel #2. Easy to 
use and with facilities to undo 
amendments and page through list- 
ings, it is a considerable improve- 
ment on QL’s primitive line editor. 
Then there’s a file spooler (SPL) 
which allows you to print out docu- 
ments or listings in the background 
so that work may continue uninter- 
rupted — invaluable if you have a 
busy work schedule. 

With much to offer in terms of file 
handling the kit more than makes up 
for the lack of built-in commands in 
SuperBasic. On the level of file 


maintenance there are the simple 
commands RENAME, TRUNCATE, 
VIEW, STAT, WDIR, WSTAT, 
WDEL, WDEL_F. The first three 
commands are self evident. The re- 
mainder need some explanation. 
Those beginning with W (wild card) 
permit files with similar prefixes to 
be listed (DIR) or deleted (DEL) as a 
single group. The postfix __F indicates 
that no confirmation is required. The 
STAT commands will display not 
only a file’s (or medium’s) name but 
also its length and the date it was last 
amended. 

As far as file I/O is concerned a 
number of new variants to the OPEN 
command have been introduced. 
They are FOPEN, FOP_IN, FOP_ 
NEW, FOP_OVER and FOP_DIR. 
Only the last two have no direct 
parallel in SuperBasic. FOP_OVER 
allows you to open a new file or 
overwrite an existing file and, FOP_ 
DIR to open a. directory. However, 
what distinguishes all the new com- 
mands is that if an operation fails 
they return an error code and do not 
crash the program. 

Extra functions include FLEN, 
FTYP, FDAT which return length, 
type and size of data space. 


.to and from specific locations in files. 


“With much to offer in terms of file handling, the kit 
makes up for the lack of built-in commands in SuperBasic.”’ 


In the more complex field of Ran- 
dom Access the kit introduces the 
commands BGET, BPUT,.GET and 
PUT which enable you to move bytes 


With the latter two commands data is : : OS ae giority 
manipulated in the QUL’s internal : 1 clock 
format. Combined with the function He sz Sila ion 


FPOS which returns the position of : 
the file pointer these features should 
appeal to those interested in creating 
their own databases. 

Moving into the area of program 
execution the emphasis is on machine 
code and multitasking. At the lowest 
level two routines are provided which 
permit you to set device defaults for 
program and data files (PROG_USE, 
DATA_USE). Using these, programs 
may be executed and files accessed by 
name alone (ie, omitting mdv1,flp1). 

Real innovation, however, is to be 
found in the EX and EW commands 
introduced to replace EXEC and 
EXEC_W. These commands may be 
used to run a whole chain of inter- 
locking machine code programs 
where each one ‘filters’ a ‘stream’ of 
data and then ‘pipes’ it onto the next. 
Those familiar with Unix Shell script 
may recognise the technique. To aid 


return a job’s name, ID and priority 
whilst NXJOB allows you to scan the 
job hierarchy. 

With free memory on the QL con- 
stantly shifting, extra commands 
have been provided to supplement 
the somewhat overworked RESPR 
routine. ALCHP and RECHP will 
reserve and release areas on the 
common heap and CLCHP will clear 
it altogether. Functions BIN, HEX, 
BIN$ and HEX$ should warm the 
hearts of many aspiring machine 
coders. These allow instant decimal 
to binary/hex conversions and vice 
versa. Also, for those developing 
business software there’s FDEC$, 
IDEC$ and CDEC$ which enable 
programs to be written efficiently 
using integer variables. CURSEN 
and CURDIS enable and disable the 
screen cursor. WTV and WMON 
reinstate TV or Monitor windows 
respectively and more interestingly, 
CHAR_USE and CHAR_INC allow 
you to switch character founts and 
alter character spacing. Last of all, 
PARTYP and PARUSE are functions 


in the construction of such programs 
an ET command is also included 
which permits the chain to be set up 
but jobs not activated, so that they 
may be stepped through using a 
debugger. A number of these filter 
programs have been provided with 
the package. The table below shows 
what each program does. 


UC ... converts input into upper 
case output (source code supplied) 
LNO . adds line numbers to 


input to return procedure parameter types 
MORE .. . pages input out on || and usage. 
screen So, what do we make. of the QL 


Toolkit? Well, the answer lies in how 
invaluable the 58 or so additions to 
SuperBasic may be considered to be. 
For computer novices or business 
users the package holds little prom- 
ise; SuperBasic though extended is 
made no easier. For the hacker or 
computer buff, however, the package 
will:be most welcome, provided, of 
course, he hasn’t written half these 
routines himself. 


CPY.... copies input to one or more 
files 

CCT . . concatenates (joins 
together) one or more files 

PAGE ... similar to CCT but also 
pages the output (source supplied) 


In the area of Job Control, the Toolkit 
provides a number of much needed 
routines. The command JOBS will 
display all programs multitasking 
along with their tag, priority, status 
and ownership. Additionally AJOB, 
SPJOB and RJOB permit you to 
activate, suspend or terminate speci- 
fic jobs. Finally JOB$, OJOB, PJOB 


Price: £24.95 
Available W H Smiths and leading 
computer stores or Sinclair direct. 


ZX Specirumand@L _ 
Microdrive Storage Box™ | 


| 
|_\ @ Designed to match QL and Spectrum _ 
| ® Holds 20 cartridges and index cards | 
| ® Fully interlocking oe 


e5.° 


Available from selected 
WH Smith's and leading 


¥ 
computer shops 


|) TRANSFORM LTD. .(Dept.QL) 089283 4783 === 
Swatlands, Lucks Lane, Paddock Wood, Kent TN12 6QL. 


Power of the QL 


QLRS 232 Lead 


_ 


ribbon and listing paper. 


tif eWe also supply printers, monitors, labels, _ Le 
y 


Time:09:18 Date:May 16 JEDIT FILE = Insert line AGENDA The program that does everything 
a | Delete line rint fi : x ‘ 
ipa ee ‘file your pocket or desk diary will not do. Agendais a 
aay wee calendar-based program to remind you of 


o Tu We Th Fr Sa Su : 1 
—————— — appointments, phone messages, birthdays, 
02 0945 CALL BROKER 060708 09 10 11 12 holidays bills and many more 
03 1314151617 1819 i 


‘ 11.11 SEND CABLE TO USA 20 21 22 23 24 25 26 * Make a print-out of any display 


27 2829 30 31 


ame Mas x Alarm facility to warn you of an appointment 


07 JUNE 1985) 
1410 PHONE FRANCE x Real time clock 
9 Ol 02 
1600 EDITORIAL MEETING 03 0405 06 070809 * Facility to export to Quill 
lo ltt 13 14 1S 1 
) 17:10 CALL HONG KONG 17 18 19 20 21 22.23 *x Zoom in to any day facility 


24 25 26 27 28 29 30 
18:10 DINNER WITH SHEILA * and more 


ee Le ~~ 
| Phone or post this coupon. | enclose a cheque for s—\. 

Q-SOFT l Debit i ea Acc. = Card = a | 
P.O. Box 90 | Name: | 

Barnet | Address: | 
Hertfordshire | Postcode;_____ | 
EN55RN | Tel. No.: Signature: | 

Tel 01 -449 741 7 | Fully inclusive price delivered in the U.K. Europe add £1.00. Allow 14 days fordelivery 7 


Dealer enquiries welcome. 7 
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SINCLAIR 
for the 


includes VAT, 
postage and packing 


pindctiintrays - A fascinating game and 
microdrive cartridge for the QL ; nee 2 te 
i =aircraft in a busy air traffic 
seetinianannsneenegncnuuansnnnenensconvsssssoeseeenenaasssssoeeseeeninnass i. =zone which includes 2 airfields 
and 9 airways. Don’t run out of 
fuel and avoid collisions. 


‘ends alien elmaimaa VERY ADDICTIVE — 
Sa tect mc HIGHLY FRUSTRATING 


i Please make cheque or postal order payable to : 
Shadow Soft and send to: \ QL FROGEAMBIERS. Want someone to market your 
A game? — send it to us for assessment; you will not be 
I Shadow Soft, 10 Gooseacr e, Cheddington, Near ripped off. At worst it will be returned uncopied, at best 
] Leighton Buzzard, Beds. 0296 668740 i you will be offered a contract at good royalty rates. 


a es | 


THE PROGS 


DIY Assembler completion, our type- it-in- 
Giles Todd yourself assembler 
Much of the QL’s power is complements our Machine 


hidden away and accessible 
only through machine code. To 
unleash it you not only needa 
working knowledge of various 
coding techniques but alsoa 
way to delve into the inner 
workings of QDOS and the 
68008 processor. Close to 


6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 


Code Tutorial providing the 
means to put theory into 
practice. Written entirely in 
SuperBasic (and for that 
reason it’s a little slow), it 
supports the complete 68008 
instruction set as well as the 
directives ORG, END, EQU, 
END IF DC and DS. 

END DEFine print_object 


DEFine FuNction cvs (number , length) 

LOCal byte(3) ,temps 

byte (0)=INT (number /2°24) 

byte (1)=INT ( (number — (byte (0) ) #224) /2*16) 
byte (2)=INT ( (number — (byte (0) #2%24) — (byte (1) #2 


“16))/2°8) 


7030 byte (3)=INT (number— (byte (0) #224) — (byte (1) #2* 
16)—(byte(2)*2°8) ) 


7040 temp#="" 
7050 temp$=tempS&CHR$ (byte (0) ) 
7060 temp#=temp#&CHR$ (byte (1) ) 
7070 temp#=temp$&CHR$ (byte (2) ) 
7080 temp#=temp$&CHR$ (byte (3) ) 
7090 RETurn temp#((5-length) TO 4) 
7100 END DEFine cvs¢ 
7110 : 
7120 DEFine PROCedure evaluate (mn$,src$,dest$,link 
,»stype,dtype) 
7130 SELect ON link 7610 link4 
7140 =0 : 7420 =23 
7150 linko 7630 link23 
7160 =1 ; 7640 =24 
7170 linkl 7650 link24 
7180 =2 ; 7460 =25 
7190 link2 7670 1ink25 
7200 =3 ; 7480 =26 
7210 linksS 7690 1ink26 
7220 =4 7700 =27 
7230 link4 7710 link27 
be = IF $ (LEN sine = 

mn te) 
(mn$)-1 TO)=".S" THEN mn la 
="BT .S":ELSE mn¢$="BT" 7750 link29 
7260 link4 7760 =30 
7270 BG; 7770 link3o 
7280 linké 7780 =31i 
7290 =7 ; 7790 link31 
7300 link7 7800 =32 
7310 =8 i 

7810 link 

7320 links 7820 =33 silica 
7330 “7 7830 Link33 
7340 link9 7840 =34 
‘7350 — 7850 link34 
7360 link10O 7860 =35 
7370 =11 7870 1ink35 
7380 linkil 73880 =36 
7390 =12 7890 1ink36 
7400 link1i2 7900 =37 
7410 =13 7910 link37 
7420 linki3 7920 =39g 
7430 =14 7930 1link38 
7440 link14 7940 =39 
7450 =15 7950 1ink39 
7460 link1iS 7940 =40 
7470 =16 7970 1ink40 
7480 1link16 7980 =41 
7490 =17 7990 link41 
7500 link12 g000 =42 
7510 =18 8010 link42 
7520 linki8 8020 =43 
7530 =19 8030 1ink43 
7540 linko 8040 =44 
7550 =20 8050 1ink44 
7560 link20 8060 =45 
7570 =21 8070 1ink45 
7580 link21 8080 =46 
7590 =22 8090 1ink4é 
7400 IF mn#="DBRA" 8100 =47 
THEN mn#="DBF" 8110 1ink47 


8120 
8130 
8140 
8150 
8140 
8170 
8180 
8190 


8290 
8300 
8310 
8320 
8330 


src$="USP" 


8340 
8350 
83460 
8370 


=49 8200 =52 
1ink48 8210 linkS2 
=49 8220 =53 
1ink49 8230 linkS3 
=50 8240 =54 
1link5So 8250 linkS4 
=51 8260 =55 
linkS1 8270 1link5SS 


8280 END SELect 
END DEFine evaluate 


DEFine PROCedure link14 
LOCal i,temp#,length 
IF dest$="CCR" OR src$="SR" 
OR dest$="USP" THEN status:RETurn 
IF mn¢#(LEN (mn) )="Q" THEN 
IF dtype<>1 THEN operr 
word (0) =shift (14) +shift (13) +shift (12) 
word (0) =word (0) +reg (dest$,dtype) *shift (9) 
word (0) =word (0) + (INT (eval (src) )&&255) 
length=2 
ELSE 
SELect ON dtype=10 TO 16:operr 
word (0) =0 
temp$=mn$s (LEN (mn#)-1 TO) 
IF temp#=".B" THEN 
IF stype=2 THEN operr 
word (0) =word (0) +shift (12) 
END IF 
IF temp$=".L" THEN 
word (0) =word (0) +shift (13) 
END IF 
IF temp$<>".L" AND temp$<>".B" THEN 
word (0) =word (0) +shift (12) +shift (13) 
END IF 
word (0) =word (0) +amode (dt ype) *shi ft (4) 
word (0) =word (0) +reg (dest$,dtype) *shift (9) 
word (0) =word (0) tamode (stype) *shi ft (3) 
word (0) =word (0) t+reg (src#,stype) 
length=2+overhead (stype,mn#, sources) toverhead 


OR dest#="SR" OR 


(dtype,mn#,destination$) 


8580 
8590 


END IF 
IF mn#(LEN(mn#))<>"Q" THEN opcode:ELSE object 


$=cvs$ (word (0) ,2) 


8400 


Program_counter=program_counter +1 ength: REMark 


poke the code here 


8410 


END DEFine linki4 


DEFine FuNction reg(r#,type) 

LOCal i,j,temp#,notfound 

IF type=13 THEN RETurn 4 

IF type>7 THEN RETurn type-8 

IF type=7 THEN i=r$(("(A" INSTR r#)+2):RETurn 


notfound=-1 
FOR j=0 TO 7 
IF "A"&j INSTR r# OR 
notfound=j 
EXIT j 
END IF 
END FOR j 
RETurn notfound 
END DEFine reg 
DEFine FuNction amode (type) 
IF type>7 THEN 
RETurn 7 
ELSE 
RETurn type-1 
END IF 
END DEFine amode 
DEFine PROCedure opcode 
LOCal at 
ob ject $=cvs$ (word (0) ,2) 
IF stype=8 OR (stype=12 AND NOT "Q" 


"D"&j INSTR r% THEN 


INSTR mn# 


» THEN word (1)=eval (src) : ob ject#=ob ject $kcvs$ (wor 


d(i), 


8920 


2) 


IF stype=9 OR (stype=13 AND NOT "GQ" INSTR mn# 


> THEN i=eval (src) :word(1)=INT (i /65536) : word (2) =( 
1/65536-INT (1 /65536) ) #65534: ob ject$=ob ject$kcvs$ (w 
ord(1) ,2) &cvs# (word (2) ,2) 


8930 
8940 


IF stype=7 OR stype=11 THEN 
word (1)=(eval (src#(1 TO ¢"¢" 


INSTR src#)-1 
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))&&255) +reg(src#(("," INSTR src$)+1 TO cy, 
src#)+2) ,O) *shift (12) 


INSTR 


8950 IF ".L" INSTR src# THEN word(1)=word(1)+sh 
ift (ii) 

8960 IF ",A" INSTR src THEN word (1)=word(1)+sh 
ift «15> 

8970 ob ject #=ob ject $kcvs$ (word (1) ,2) 

8980 END IF 

8990 IF stype=6 THEN word(1)=eval (src$(i To «("(" T 
NSTR src#)—-1)) 0b ject$=ob ject$&cvs$ (word (1) ,2) 
9000 IF stype=10 THEN pcrel (src#) : ab ject $=ob ject $& 


cvs#(word(1),2) 

9010 IF dest#<>"" THEN IF dtype=8 OR dtype=12 THEN 
word (1)=eval (dest#) : ob ject $=ob ject $&cvs¢ (word (1), 
2) 

9020 IF dest#<>"" THEN IF dtype=9 OR dtype=13 THEN 
i=eval (dest) sword (1)=INT (i /65536) : word (2) =(i/655 
36—INT (i /65536) ) #65534: ob ject $=ob ject $kcvs$ (word (1 
), 2) &cvss (word (2) ,2) 

9030 IF dtype=7 THEN 

9040 word (1)=(eval (dest$(1 TO ("(" INSTR dest) 
—1))&&255) +reg (dest$(("," INSTR dest$)4+1 TO «"," I 
NSTR dest#)+2) ,0) *shift (12) 


9050 IF ".L" INSTR dest THEN word(1)=word(1)+s 
hift(ii) 

9060 IF ",A" INSTR dest THEN word(1)=word(1)+s 
hift (15) 

9070 ob ject $=ob ject $kcvs$ (word (1) ,2) 


9080 END IF 

9090 IF dtype=6 THEN word (1)=eval (dest$(1 To cc" 
INSTR dest$)—-1)): 0b ject $=ob ject $&cvs$ (word (1) ,2) 
9100 IF dtype=10 THEN Pcrel (dest#) : ob ject$=ob jects 
&cvss (word(1) ,2) 

9110 END DEFine opcode 

9120 : 
9130 DEFine PROCedure pcrel (op#) 

9140 LOCal temp 

9150 IF op#(1)="#" THEN 

9160 temp=eval (op#(1 TO ("(" INSTR op#)-1)) 
9170 ELSE 

9180 temp=eval (op#(1 TO ("(" INSTR op#)-1))-(pr 
ogram_counter+2) 

9190 END IF 

9195 IF temp<-32768 OR temp>32747 THEN operr 

9200 word(1)=temp 

9210 END DEFine pcrel 

9220 : 


9230 DEFine PROCedure link4 


9240 LOCal short,temp#,pc,disp,i 

9250 short=0 

9260 temps=mns 

9270 IF mn#(LEN(mn%)-1 TO)=".S" THEN 

9280 short=1 

9290 temp$=mn$(1 TO LEN (mn) -2) 

9300 END IF 

9310 word (0)=6*shift(12):IF mn$(1)="D" THEN word (oO 


eshift (14) +shift (12) +shift (7) +shift (6) +shift (3)4¢r 
eg (src#,stype) 

9320 IF temp$(1i)="D" THEN temp$=temp$(2 TO) 

9330 FOR i=0 TO 15 

9340 IF condition$(i)=temp#(2 TO) THEN 

9350 word (0) =word (0) +cond% (i) *shift (8) 

9360 EXIT i 

9370 END IF 

9380 END FOR i 

9390 pc=program_counter 

9400 IF short OR mn#(1)="D" THEN 

9410 pc=pc+2 

9420 ELSE 

9430 pc=pc+4 

9440 END IF 

9450 disp=eval (src#) —(program_counter+2):IF mn#(1) 

="D" THEN disp=eval (dest) -—pc 

97460 IF disp>=-128 AND disp<O AND mn#(1)<>"D" THEN 
short=1 

9470 IF short THEN 


9480 Pc=program_counter+2 

9490 IF disp<O THEN 

9500 word (0) =word (0) +256+disp 
9510 ELSE 

9520 word (0) =word (0) +disp 
9530 END IF 

9540 ELSE 

93550 word (1)=disp 


9560 END IF 
9565 IF short=1 AND (disp<-128 OR disp>127) THEN o 


44/QL User/May 1985 


perr 


9570 ob ject #=cvs$(word(O),2):IF NOT short THEN obj 
ect $=ob ject $&cvs$ (word (1) ,2) 


9580 IF mn#(1)="D" THEN Pc=pc+2 
9590 Pprogram_counter=pc 

9600 END DEFine link4 

9610 : 
9620 DEFine PROCedure 1ink38 

9630 LOCal i,temp$,length 

9640 SELect ON stype=2,10 TO 16:operr 

9650 word (0)=74#shi ft (8) 

9660 temp$=mn$ (LEN (mn#)-1 TO) 

9670 IF temp$=".L" THEN word (0) =word (0) +2*shift (4) 
9680 IF temps<>".L" AND temp$<>".B" THEN word (0) =w 
ord(0)+shift (6) 

9690 word (0) =word (0) +amode (st ype) *shi ft (3) +reg (src 
$,stype) 

9700 length=2+overhead (stype,mn#,src$) 

9710 opcode 


9720 Progr am_counter=program_counter+length 

9730 END DEFine 1ink38 

9740 : 

9750 DEFine PROCedure linkoO 

9760 LOCal i, temp#,length,size 

9770 sizetemp 

9780 IF temp$(i)<>"Q" AND temp$(id<>"I" AND temps ( 


i)<>"X" AND temp$(i)<>"A@" THEN 
9790 word (0) =shift (15) +shift (14) +shift (12)+size 


*shift(6):IF mn#(1 TO 3)="SUB" THEN word (0) =word (0 
d-shift (14) 


9800 IF stype=1 AND dtype<>1 AND dtype<>2 THEN 
9810 SELect ON dtype=2,10 TO 16:o0perr 
9820 


word (0) =word (0) +reg (src#,stype) *shift (9 
)+shi ft (8) tamode (dt ype) *shi ft (3) +reg (dest$,dtype) 


9830 ELSE 
9840 SELect ON dtype=3 To 16: o0perr 
9850 


word (0) =word (0) treg (dest$,dtype) *shi ft ( 
9) tamode (stype) *shift (3) +reg(src#,stype) 


9860 END IF 
9870 length=2+overhead (st ype,mn#,scr$) +overhead 
(dtype,mn#) 


9880 END IF 

9890 IF temp$(i)="A" THEN 

9900 SELect ON dtype=1,3 TO 16: o0perr 

9910 word (0)=shift (15) +shift (14) +shift (12) +shif 
t (7) +shi ft (6) +reg (dest$,dtype) #shift (9) +amode (styp 
e) *shift (3) +reg(src%,stype) : IF mn¥(1 TO 3)="SUB" T 
HEN word (0)=word(0)—shift (14) 

9920 IF size=2 THEN word (0) =word (0) +shift (8) 
9930 length=2+overhead (stype,mn$,src$) 

9940 END IF 

9950 IF temp#(i)="I" OR ((stype=12 OR stype=13) AN 
D temp¢$(i)<>"Q" AND temp$(i)<>"A") THEN 


9960 SELect ON stype=i TO 11,14 TO 16:o0perr 
9970 SELect ON dtype=2,10 TO 16: o0perr 
9980 


word (O)=shi ft (10) +shift (9) +sizexshift (6) +a 
mode (dtype) *shi ft (3) +reg (dest$,dtype) :IF mn#(1 TO 

3)="SUB" THEN word (0) =word (0) -shift (9) 

9990 length=2+overhead (stype,mn#,src$#) +overhead 
(dtype,mn$) 

10000 END IF 

10010 IF temp$(i)="Q" THEN 


10020 SELect ON stype=1 TO 11,14 TO 16:o0perr 
10030 SELect ON dtype=10 TO 16: operr 

10040 length=eval (src#):IF length=8 THEN length 
=0 

10050 


word (O)=shift (14) +shift (12) +length#shi ft ( 
7) +sizexshi ft (6) +amode (dt ype) *shi ft (3) +reg (dest $,d 
type):IF mn#(1i TO 3)="SUB" THEN word (0) =word (0) +sh 
ift (8) 

10060 length=2+overhead (dtype,mn$) 

10070 END IF 

10080 IF temp#(i)="X" THEN 

10090 IF NOT (stype=1 AND dtype=1) OR NOT (styp 
e=5 AND dtype=5) THEN operr 

10100 word (O)=shift (15) +shift (14) +shift (12)4+shi 
ft (8) treg (dest$,dtype) *shi ft (9) +sizexshi ft (6) treg ( 


src$,stype):IF mn$(i TO 3)="SUB" THEN word (0) =word 
(0) -shift (14) 


10110 IF stype=5 AND dtype=5 THEN word (0) =word ( 
O) +shift (3) 
10120 length=2. 


10130 END IF 


10140 IF length=2 THEN ob ject $=cvs$(word(0) ,2):ELS 
E opcode 


THE PROGS 


10150 program_counter=program_counter+length 

101460 END DEFine linko 

10170 : 

10180 DEFine PROCedure linkis 

10190 word (0) =hex ("4E75") 

10200 ob ject$=cvs# (word (0) ,2) 

10210 program_counter=program_counter+2 

10220 END DEFine 1linki8 

10230 : 

10240 DEFine PROCedure links 

10250 LOCal temp#,size,length,i 

10260 sizetemp 

10270 IF temp$(i)<>"A" AND temp#(i)<>"I" AND temps 
(i)<>"M" THEN 

10280 SELect ON dtype=3 TO 16:operr 

10290 word (0) =shift (15) +shift (13) +shift (12)+reg 
(dest$,dtype) *shi ft (9) +size*xshi ft (6) +amode(stype) # 
shift (3) +reg(src$,stype) 

10300 length=2+overhead (stype,mn$,src$) 

10310 END IF 

10320 IF temp#(i)="A" THEN 

10330 SELect ON dtype=1,3 TO 16:operr 

10340 word (0) =shift (15) +shift (13) +shift(12)+shi 
ft (7) +shift (6) +reg (dest$,dtype) *shift (9) +amode (sty 
pe) *shift (3) +reg (src$,stype) 

10350 IF size=2 THEN word (0)=word(0)+shi ft (a) 
10360 length=2+overhead (stype,mn$, src) 

10370 END IF 

10380 IF temp$(i)="I" OR ((stype=12 OR stype=13) A 
ND temp#(i)d<>"A") THEN 


10390 SELect ON dtype=2,10 TO 16:operr 
10400 SELect ON stype=1 TO 11,14 TO 16:operr 
10410 word (0)=shift (11) +shift (10) +sizexshift (4) 


+amode (dtype) *shift (3) +reg (dest#,dtype) 

10420 length=2+overhead (stype,mn#,src#) toverhea 
d(dtype,mn#) 

10430 END IF 

10440 IF temp#(i)="M" THEN 

10450 IF stype<>4 OR dtype<>4 THEN operr 

10460 word (0)=shift (15) +shift (13) +shift (12) +shi 
#t (8) +reg (dest#,dtype) *shift (9) +size*#shift (6) +shif 
t (3) +reg (src#,stype) 

10470 length=2 

10480 END IF 

10490 opcode 

10500 program_counter=program_counter+length 

10510 END DEFine links 

10520 : 

10530 DEFine PROCedure linki2 

10540 LOCal i,length,size,temps 

10550 sizetemp 

10560 IF dest#=""" THEN 

10570 SELect ON stype=1,2,10 TO 16:operr 

10580 word (0) =shift (15) +shift (14) +shift(13)+shi 
ft (9) +shift (8) +shift (7) +shift (6) +amode (stype) *shif 
t (3) +4+reg (srct,stype) 


10590 IF temp$="ROR" THEN word (0) =word(0)+shift 
(10)-shift (8) 

10400 length=2+overhead (stype,mn#,src#) 

10610 opcode 

10620 ELSE 

10430 word (0) =shift (15) +shift (14) +shift(13)+shi 
Ft (8) +shift (3) 

10640 IF stype=12 THEN 

10650 IF dtype<>1 THEN operr 

10660 i=eval (src) 

10670 IF i=8 THEN i=0 

10680 word (0) =word (0) +i*shift (9) 

10690 ELSE 

10700 IF stype<>1 OR dtype<>i THEN operr 
10710 word (0) =word (0) +reg (src$,stype) *shift ( 
9) +shift (5) 

10720 END IF 

10730 word (0) =word (0) +size*shi ft (6) +reg (dest$,d 
type) 

10740 IF temp$="ROR" THEN word (0) =word(0)-shift 
(8) +shift (4) 

10750 length=2 

10760 ob ject$=cvs$ (word (0) ,2) 


10770 END IF 

10780 program_counter=program_counter+length 
10790 END DEFine link1i2 

10800 : 

10810 DEFine PROCedure link21i 

10820 LOCal i,length,size,temp 

10830 sizetemp 


10840 SELect ON stype=2 TO 11,13 TO 16:o0perr 
10850 SELect ON dtype=2,12 TO 16:operr 
10860 IF stype=1 THEN 


10870 word (0) =shift (8) +reg (src#,stype) *shift (9) 
10880 ELSE 
10890 word (0)=shift(11) 


10900 END IF 


10910 word (0) =word (0) +amode (dt ype) *shift (3) +reg (de 
st#,dtype) 


10920 length=2+overhead (stype,mn%,src#) +overhead (d 


type,mn#,dest$) 

10930 opcode — 

10940 program_counter=program_counter+length 

10950 END DEFine link21 

10960 : 

10970 DEFine PROCedure sizetemp 

10980 temp#=mn4 (LEN (mn#)—-1 TO) 

10990 IF temp#=".B" THEN size=0 

11000 IF temp$=".L" THEN size=2 

11010 IF temp$=".W" OR (temp$<>".B" AND temps<>".Lb 
") THEN size=1 

11020 IF temp$=".B" OR temp$=".W" OR temp$=".L" TH 
EN temp#=mn#(1 TO LEN(mn#)—-2):ELSE temp$=mn$ 

11030 i=LEN(temp#) 

11040 END DEFine sizetemp 

11050 : 

11060 DEFine PROCedure link41 

11070 LOCal i,length,size,temps 

11080 sizetemp 

11090 SELect ON stype=2 TO 11,13 TO 16:operr 

11100 SELect ON dtype=2,10 TO 16:operr 

11110 IF stype=1 THEN 

11120 word (0) =shift (8) +shift (7) +shift (6) +reg (sr 
c$,stype) *shift (9) 

11130 ELSE 

11140 word (0) =shift (11) +shift (7) +shift (6) 

11150 END IF 

11160 word (0) =word (0) +amode (dtype) *shift (3) +reg (de 
st$,dtype) 

11170 length=2+overhead (stype,mn¢,src#) +overhead (d 
type,mn#) 

11180 opcode 

11190 program_counter=program_counter+length 

11200 END DEFine link4i 

11210 : 

11220 DEFine PROCedure link30 

11230 LOCal i,length,size,temps 

11240 sizetemp 

11250 SELect ON stype=2,10 TO 16:operr 

11260 word (0)=shift (14) +shift (10) +shift (9) +size#xsh 
ift (6) +amode (stype) *shi ft (3) +reg(src#,stype) 

11270 length=2+toverhead (stype,mn%,src#) 

11280 opcode 

11290 program_counter=program_counter+length 

11300 END DEFine 1link30 

11310 : 

11320 DEFine FuNction inside(s$,f#) 

11330 IF s# INSTR £# THEN RETurn 1:ELSE RETurn oO 
11340 END DEFine inside 

11350 : 

11360 DEFine PROCedure link7 

11370 LOCal i,length,size,temps 

11380 sizetemp 

11390 SELect ON stype=2,10 TO 16:operr 

11400 word (0)=shift (14) +shift (9) +sizexshift (46) +amo 
de(stype) *shift (3) +reg (src#,stype) 

11410 length=2+overhead (stype,mn#,src$) 

11420 opcode 

11430 program_counter=program_counter+length 

11440 END DEFine link7 

11450 : 

11460 DEFine PROCedure 1ink45 

11470 LOCal i,length,size,temp 

11480 IF stype<>1 THEN operr 

11490 word(0)=shift (14) +shift (11) 

11500 IF ".L" INSTR mn# THEN 


11510 size=3 
11520 ELSE 
11530 size=2 


11540 END IF 

11550 word (0) =word (0) +size*shift (6) +reg(src$,stype 
) 

11560 ob ject$=cvs$ (word (0) ,2) 

11570 length=2 

11580 program_counter=program_counter+length 

11590 END DEFine 1ink45 
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NOW an expansion syste 
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_ : 
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m, one cartridge 


MEDIC takes up where others leave off. Why . [_] Please send me further details on your products. 

- narrow down your choices? The Q.L. was : | wish to order the following: (please tick required items) 

-intendedasaversatilecomputercapableof (pat ae a ae Te Oe 
Agi i lk - —Cra emory d egabyte disc drive 

fulfillin any roles. With oursystem cartridge, aK Moment c/aelaasees idlees: te. PSU) disc inter- 

ice is yours. As well as a disc interface []256KMemory £169.95 we — parallel eel 
sila nor voll can have anvonc- []512KMemoryt £259.95 ate ace 


= 2 1 Megabyte disc drives, 
__| Eprom card socketed (192K | (cased inc. PSU} disc inter- 
— excluding Eproms) ex- : 


perinteniation card with face parallel interface, with 

| £399.95 

front interface £24.95 ae Peep 
U Saver met ae oe memory inc., disc interface 


r and parallel interface. 
(_] Modem £79.95 4 dise dtive 2 disc drives 


[]64K £299.95 [] £449.95 
Can only be powered ifMedic  [_]128K £329.95 [ ] £479.95 
disc system connected [_] 256K £359.95 [ |] £509.95 
“Delivery beginning April []512K £449.95 [ ] £595.95 


To order products please make cheques/P.O.’s payable to 
MEDIC DATASYSTEMS LTD. Allow 28 days for delivery. 
All prices include VAT. Please add £5 p&p. 


NAME 
ADDRESS 


76 Grainger Close, Basingstoke, Hants. RG22 4EA 
Telephone 0256 460748 
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Martin Gandoff 

we Database Management on the Sinclair QL 
Mike O'Reilly 

we Using Graphics on the Sinclair QL 

Garry Marshall 


\3 Making the Most of the Sinclair QL 
QL SuperBasic and its applications 
Dick Meadows 


we Profiting from the Sinclair QL 
financial and other spreadsheet applications 


Barry Miles 


192 pages illustrated £7.95 paperback 


fully up-to-date with 
Psion Systems version 2.00 software 


previously published in the series 

Introducing the Sinclair QL 

Introduction to SuperBasic on the Sinclair QL 
Advanced Programming with the Sinclair QL 
Word Processing with the Sinclair QL 

Desk Top Computing with the Sinclair QL 


192 pages illustrated £6.95 paperback 


comp 


Series Editor: Robin Bradbeer 
Foreword by Nigel Searle, 
Managing Director, Sinclair Research 


> 
»~ 


lete QL 


Machine Code Programming on the Sinclair QL Order now! Just fill in the order form and return to us with your 


cheque or money order. Your books will be sent POST FREE in the UK, 
within 28 days. 


\ueetietioeetienentineetiastioetiee’=be tie tei en ee 
| ORDER To: Hutchinson Computer Publishing 
FORM 17-21 Conway Street, London WIP 6JD 


Please send me: 


copies of Machine Code Programming on the 


Sinclair QL £7.95 each 09 160531 8 
— copies of Database Management on the Sinclair QL £7.95 each 09 160551 2 
ee copies of Using Graphics on the Sinclair QL £7.95 each 09 160521 0 
eee copies of Making the most of the Sinclair QL £7.95 each 09 160561 X 
say copies of Profiting from the Sinclair QL £7.95 each 09 1605415 
seoad copies of Introducing the Sinclair QL £6.95 each 09 158941 X 
Seis copies of Introduction to SuperBasic on the 

Sinclair QL £6.95 each 09 158951 7 
acid copies of Advanced Programming with the 

Sinclair QL £6.95 each 09 158961 4 
.++;. Copies of Word Processing with the Sinclair QL £6.95 each 09 158971 | 


copies of Desk Top Computing with the Sinclair QL £6.95 each 09 158981 9 


Overseas orders — add £1 p&p per title. 
| enclose my cheque/money order made payable to TBS for 


£ 


My name and address is 


IFC 


TVPTAOAE EEA 


Signed 


‘NEWS BACKGROUND 


The stories behind the news and latest product information, compiled by Sid Smith. 


The Silicon Disc 


The QL’s 0.5Mb wafer scale 
integrated (WSI) memory 
circuit, due for release before 
the year end at around £300, 
will be “the most exciting event 
in the computer industry 
during 1985”, says Sir Clive. 

Addressing a QL seminar at 
the London Hilton, Sir Clive 
extolled this “silicon hard disk” 
as a uniquely fast, rugged, 
compact, and reliable storage 
device — ideal for the Spectrum- 
like Sinclair portable due for 
release in 1986. An 
announcement about a new 
factory to produce the WSI 
RAM should be made within “a 
few weeks”. 

So admirable, indeed, is this 
4" diameter mega-chip, that 
Clive raised doubts about his 
commitment to the QL’s 
promised Winchester 
interface. 

“Hard disk interfaces are 
now available for the QL from 
other companies, and we feel 
that the silicon disk might be 
more appropriate for this kind 
of computer. If people want 
greater storage space they can 
stack the WSI disks.” 

Nigel Searle, Sinclair 
Research MD, explained that 
the battery which provides 


back-up power for the silicon 
disk is provided with a low- 
power warning light, and can 
be changed while the device 
stays plugged into the QL’s 
expansion bus— obviating the 
need to copy data to another 
storage device. 

The computer industry’s 
Holy Grail of wafer scale logic 
(as opposed to memory) circuits 
won't bea straightforward 
development of Sinclair’s 
present technology — which is 
based on the ideas of renegade 
British inventor Ivor Catt. 

Explained Sir Clive, 
“Memory lends itself 
particularly well to the sort of 
wafer scale arrangement we 
have” — where the circuit 
builds itself up across the wafer 
by testing individual blocks of 
the circuit and incorporating or 
rejecting the blocks according 
to whether they work. So you 
have to provide the system 
with testable blocks, and that’s 
easy to do with memory 
circuits but less easy with logic 
circuits. 

“But we certainly havea 
head start over other 
manufacturers. And many of 
the patents we're filing now 
have moved away from Ivor 
Catt’s ideas.” 

The silicon hard disk should 


also find a place in the 
Spectrum-derived portable 
which Sinclair plan to release 
next year — a new interface is 
all that’s needed to convert the 
WSI technology for Z80-based 
architecture. But as to when 
that happens — it’s anyone’s 
guess. 

Curiously, we got the 
impression that Sir Clive is 
hedging on his previously cast- 
iron commitment to cathode 
ray tube technology —the 
Sinclair flat TV tube. 

Is the company working ona 
larger version of the flat CRT 
for computer use, we asked 
him, or would he be using some 
kind of magnification 
technique? 

“Tt’s anew technology which 
we can’t describe at present 
because we haven't filed the 
patents.” 

Butisita CRT? 

“Tcan’t tell you any more 
than that. It’s a light-up 
display. The view we take is 
that you’ve got to have low- 
power, obviously, but what 
people want is not dingy old 
liquid crystal, they really want 
what they get ona CRT; we’re 
aiming to give them that, but 
how we're doing it has to bea 
secret.” 


The much-maligned microdrive mechanism revealed for all to see. 


Microdrive Mechanics 


Any QL user whose 
microdrives fail to give perfect 
performance can have a new 
machine — and that’s official 
from Sir Clive. 

“Td be naive to suppose that 
you didn’t know we’d had 
problems with the microdrives 
on early issues of the QL. 
“This arose because we 


translated the technology from 
the Spectrum, where we’d had 
superb results from 
microdrives, and made a few 
changes which didn’t work out 
as wellas we'd hoped. But 
we've sorted all that out now— 
as is confirmed by the adoption 
of microdrives by ICL.” 

Clive rejected our suggestion 
that there must therefore be 
QLs in use with inferior 


microdrives — “faulty machines 
will have been returned by 
now,” he believed. 

The company was aiming for 
a QL return rate of under 2%, 
compared with its present 
3.5%. Nevertheless, we 
managed to extract a promise 
that anyone whose microdrives 
give “less than 99% 
performance” could send their 
QL back to Sinclair Research. 


Hunting For Hackers 


“Conventional wisdom in the 
States assumes there aren’t 
any hackers left. I don’t believe 
that’s true. I think they’ve just 
been obscured by the 
professional and business 
users that Apple and IBM sell 
to. Yes, they’re a small 
percentage of the market, but I 
think in absolute numbers 
there are actually more of 


‘them than there were two or 


three years ago.” 

And so confident is Nigel 
Searle that these American 
hackers (in the old-fashioned 
sense of code junkies rather 
than comms intruders) area 
viable market for the QL that 
he’s off to lead the company’s 
US arm in Boston, Mass. 

“There are an enormous 
number of people in the States 
who’ve already got QLs, 
who’ve had friends buy them in 
England and send them over 
there. And this hacker’s 
market is one which the QLis 
very well suited to. It’s a price- 
sensitive market, and there 
aren’t many of those in 
America. The hackers know 
that they don’t need a 68000 
machine, but they know they 
want one.” Wishful thinking? 
Well who ever thought they 
needed a ZX81? 

It sounds very sensible. 
Sinclair won’t need much 
advertising (hackers know 
what they like) nor much 
dealer support (hackers think 
they can take care of 
themselves); it confronts no 
established US giants 
(compare Acorn’s assault on 
the American education 
market) and capitalises on the 
QL’s high spec and low price 
(though, at $499, its pricing 
ignores the computer 
industry’s long-established 
pound/dollar parity). 

A similarly focussed and 
economical exercise couples 
this appeal to the cognoscenti 
with a hardware bundle for US 
first-time buyers. In a joint 
marketing effort with 
American Express; Sinclair 
will sell the QL, plus printer 
and monitor, as “a home 
productivity station” for 
around $1000. 

In short, Sinclair’s American 
campaign will be a modest 
venture appropriate to 
inevitably modest results. But 
if Atari’s ST does appear then 
Nigel should come straight 
home; he’ll be needed here! 
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| Promoting Problems 


Eating a big chunk of Sinclair’s 
new £0.75m advertising 
budget for the QL, the multi- 
page glossy advertising 
supplement carried in several 
magazines (our’s included) 
does a great job of promoting 
the companies featured in its 
pages — and, apparently, of 
infuriating everyone else. 


Sinclair Research’s ‘QL News’. 


Most strident amongst these 
bemused outsiders is PCML, 
who market a QL 
implementation of Digital 
Research’s CP/M 80 —that 
doyen of 8-bit operating 
systems. 

Lauding it as “the key to 
American sales”, boasting of 
its tens of thousands of 
software packages, vaunting it 
as “the Amstrad killer”, PCML 
boss John Fuller has no 
constricting modesty about thé 
combination of QL and CP/M 
80—nor about his frustration 
at a “lack of co-operation” from 
Sinclair Research. 

“Buying a licence from 
Digital to sell CP/M is 
expensive,” says Fuller, “but it 
does go down with quantity. 
Licensing just one unit, for 
instance, would cost £75, but 
the unit cost comes down to £5 
if [buy 10,000 licences. That’s 
still an investment of £50,000; 
and when you add another 
£150,000 or £200,000 for the 
cost of components you can see 
why we want Sinclair’s help to 
‘win those mass market sales.” 

Fuller’s mood isn’t helped by 


what he sees as unfair Sinclair 
assistance to certain rivals who 
market a CP/M 68K operating 
system. 

“Sinclair needs an add-on 
operating system to sell the 
QL,” he says. “Clive is trying to 
establish QDOS as an industry 
standard, but he’ll never make 
it; no software house is going to 
write a major package for 
QDOS when they can 
guarantee themselves a huge 
market by writing, say, for 
MS-DOS. 

“CP/M 68K is a joke. There’s 
no software for it and there 
never will be. And thé same 
thing applies to the 68K/OS. 
Sinclair’s only choice is to 
promote CP/M 80—but they 
said they’d only recommend it 


Aspecial forum for news and 


views from the independent 


users’ group, compiled by 


Leon Heller, IQLUG Chairman 


Around 200 people attended 
the Swindon workshop and 
sessions on BCPL, APL, C, 
Forth and Archive attracted 
large audiences. Tony (QDOS) 
Tebby was available to answer 
questions on QL software and 
hardware. Several interesting 
new software and hardware 
products were launched. 

GST have developed a C 
compiler rejoicing in the name 
of QC. Although it lacks such 
niceties as floating point,multi- 
dimensional arrays and 
structures, it is quite adequate 
for systems programming. I 
plan to port a “smart terminal” 
program in C for my CP/M 
system over to the QL, which 
should be a good test of it. 

Metacomco demonstrated 
their range of QL software, and 
they hope to have Lattice C 
available soon, which is a full 
implementation of the 
language, and full Cambridge 
LISP, now that .56Mb RAM 
expansions are available. 

Real Time Systems 
announced their QL 
development software — Pascal 
and C cross-compilers— but we 
didn’t have a VAX so they 
couldn’t demonstrate them! 

Dataller had a very 
impressive package for 
insurance brokers, written in 
assembly language, which 


if we paid them aroyalty! 
“Sinclair should give us 
technical help so that there’s 
no clash between our CP/M 
and their future products. 


USER GROUP NEWS 


really used the display features 
of the QL to advantage. 

PCML had a prototype Z80 
card for the QL, with Personal 
CP/M in EPROM, running 
Wordstar off microdrives. 
Output to the display was a bit 
leisurely, but they hope to 
speed it up. 

ICLturned up with a One- 
per Desk, which attracted 
some interest asmany mem- 
bers work for large companies 
at which the OPD is aimed. 

We also performed some 
networking experiments, with 
two standard QLs networked 
to a disk-based system. After a 
great deal of trial and error 
(the QL documentation wasn’t 
alot of use) we got it all 
working properly, and even 
managed to get the disk 
system operating in 
“broadcast” mode to the other 
two. What is needed now is 
some assembly language 
software to allow one system to 
run unattended asa file- 
server. 


Two Into One 

One of our members, John 
Lawlor, has both the CST disk 
interface, and the Simplex 
Data .5Mb RAM expansion 
module. Since the Sinclair 


expansion unit is not yet 
available he has built an 
adaptor that interfaces both 
units to the expansion port. He 
tells me that it works perfectly, 
although in theory the bus 
signals should be buffered for 
more than one peripheral 
device. 


The CP/M 80 interface from QL Plus (PCML). 


They should recommend CP/ 
M, and put pressure on 
retailers to carry it. Believe 
me, it’s in their interest as well 
as ours.” 


Long Strings 
Although SuperBasic allows 
very long strings, the INPUT 
statement gives a “buffer full” 
error when strings longer than 
128 bytes are input. A couple of 
IQLUG members wishing to 
input long strings have asked 
how to get round this problem, 
which might be puzzling other 
users. The solution is quite 
simple —just use INKEY$ and 
the string concatenation 
operator, ‘&’. The following 
program fragment illustrates 
the technique:— 
long_string$ = 
REPeat get_string 

k$ = INKEY$(—1) 

IF CODE (k$) = 10 THEN 

EXIT get_string 


wn 


PPRINT k$; 
long_string$ = long_ 
string$ & k$ 
END REPeat getstring 
PRINT 


PRINT long_string$ 


The Independent QL Users’ 
Group (IQLUG) publishes a 
monthly newsletter, 
maintains a software 
library, supports local 
groups, and provides 
members with a free advice 
service. Workshops are 
arranged from time to time 
in different parts of the 
country. Further details are 
available from: 
Brian Pain, 24 Oxford 
Street, Stony Stratford, 
Milton Keynes MK11 
1JU. Tel: (0908) 564271 
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GAMES 


PROGRAMMING 


The second part of our exciting introduction to the 


art of low level coding, by lan Williams and Steven Hollywood. 


Last month we dealt with the mecha- 
nics of designing sprites, putting 
them on screen and moving them 
about. To accomplish this we used 
nine routines, each of which had a 
specific function and one large 
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routine, ‘Coldstart’, which appeared 
with REMs on quite a few lines. It’s 
particularly important that these 
lines are not ‘activated’ until we’ve 
published the routines to which they 
refer, otherwise the program will 


crash. If you’ve entered last month’s 
listing then you should have a screen 
full of little invaders just bursting to 
attack you. 

This month we’re going to add a 
gunbase at the bottom of the screen 
(which will be under joystick or cur- 
sor key control), sound effects, both 
for firing the gun and hitting the 
invaders and bullets from the gun. 

The modular diagram (fig. 1) shows 
the program so far. From that the 


Fig1 


Initialise arrays 
& variables 


COLDSTART 
DIMBO 


Put Gunbase & 
Invaders on screen 
NEWGUN 
NEWSCREEN 
PAINT 


Fire bullet 
if possible 
MOVE GUN 
FIRE 


Move gun base 
MOVE GUN 


Move existing 
bullet 


BULMOV 


Check 


for hit Explade 


relevant 
Invader 


Move Invaders 
UNPAINT 
SLITHER 

PAINT, REVBUL 


NB. 
Words in /talics refer to 
routines in the program 


sequence of program steps can be 
seen and the names of this month’s 
new routines. 

The largest routine is BULMOV 
and is fully charted in fig. 2. Move- 
ment of the bullet, reading of its 
position, unplotting (deleting) of the 
old bullet and saving the new position 
are all fairly obvious. d6 and d7 are 
the registers which hold the x and y 
postions of the bullet and PLOT is the 
routine which deletes the bullet by 
the simple expedient of plotting 
another one on top using the ‘eor’ 
function — a useful way of removing 


Fig 2 


BULMOV 


Bullet 
on screen? 


Yes 


Decrease 
bulposy to 
move up 


Stop 
bullet 


alculate 
tip of 
bullet 


number of 
invaders—1 


Is tip 
within 10 y 
co-ords of invader 
count ? 


& x 
co-ord? 


Remove 

invader 
from 

screen 


Stop 
invader in 
array 


Explode 
invader 


Explosion 
noise 
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images from the screen. 

The EOR gate (fig. 3) has two 
inputs. If both inputs are the same, 
then the result is a zero. If either 
input is different then the result is 1. 
Our screen starts as black, the long 
word for which is 8 zeros. Fig. 4 shows 


Fig 4 


Long Word (black) : 00000000 $00 
Bullet pattern : 01011010 $5A 
Result of EOR : 01011010 $5A 
Bullet pattern : 01011010 $5A 
Result of EOR : 00000000 $00 
a black screen long word being 


‘EORed’ with a pattern, such as a 
bullet. The result is that the pattern 
now appears on the screen. If we then 
‘EOR’ the pattern with the same 
pattern it returns zeros, and the 
screen reverts to its original state. 

Checking to see if a collision be- 
tween the bullet and anything else 
has occurred is the next problem. 
This means we have to read the 
screen to detect a change in the pixel 
settings and for this we have a 
routine called ID_COL. 

When using ID_COL, the first 
branch is to ‘CALC_ADDR’ which is 
fully explained on the listing. CALC_ 
ADDR then returns with the on- 
screen address of the word containing 
the data for the relevant pixel (in this 
case the one at the tip of the bullet). It 
also returns (in d2) the position of the 
bit concerned in each byte of the word 
pointed to by al. From last month 
you'll remember that each pixel is 
controlled by two bytes. Figs. 5 & 
6 shows this clearly. Here, d2 would 
contain ‘3’ showing that it is the 
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“Each pixel is controlled 
by 2 bits — one from each byte” 


Fig6 
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fourth bit in each byte that’s con- 
cerned. 

ID_COL now reads ‘mask_tab’, a 
table of masks through which only 
the information concerning the re- 
levant bit can be passed. In effect, 
‘mask_tab’ is placed over the bytes as 


Fig 7 


shown in fig. 7 allowing the result 
through from that bit number only. 
This is done by using the AND func- 
tion. 

The remainder of BUL_MOV is 
explained in the listing and is fairly 
straightforward except for the sound. 
Producing sound effects in machine 
code means accessing the OS through 
a TRAP#1 instruction. Sound is pro- | 
duced on the Intel second processor 
and, as such, takes no main processor 
time other than the access command. 

The sound command uses the same 
parameters as in BASIC and are as 
follows: 


Pitch (1) byte 0to255 
Pitch (2) byte 0to255 
Grad_x(step) 2bytes -32768to15 
Duration 2bytes -32768to 32767 
Grad_y(step) nybble -8to7 
Wrap nybble 0to15 
Random nybble Oto15 
Fuzzy nybble 0to15 


To enter a single beep (10000,50) 
through machine code proceed thus: 


pas (Whatever you want to call 

it 

de.b 10,8 

dc.l $aaaa (any label) 

(These values, which must be aligned 

to a word boundary, form the bytes 

sent to the OS to inform it that a 

sound command is following.) 

dc.b 51,0 (pitch (1), pitch (2)) 

(49 is pitch (1) (machine code requires 

that 1 is added) and 0 is pitch(2)) 

de.b 0,0(LSB first) 

de.b 16,39(LSB then MSB) 

(LSB of 10000 then MSB) 

de.b $00,$00,1 (GRAD, RAD, etc) 

(1st nybble = Grad_y, 2nd nybble = 

wrap, 3rd nybble = Random, 4th 

nybble = fuzz, 3rd byte = end of data) 
To call the sound: 


lea label,a3_—_; Tells the OS 
data location 

; Command byte 
for sound 


Trap #1 ; Execute 


The MOVE GUN routine involves 
another OS function, Keyrow, which 
is the machine code equivalent of the 


moveq #17,d0 
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equivalent of the basic function. 

The row to be read is passed in d1, 
processed by the OS and a value 
returned in the same register. 


from the following lines in last 
month’s listing before assembly: 


Lines Label Instruction 


As before, to enter and run this prog- 


ram after assembling, type: 
address = respr (6000) 
which will reserve space in memory. 


When adding this month’s prog- | 22 restart lea bulposx,a0 
ram to last month’s the whole listing, | 23 move.w #—1,a0 
excluding the sprite definitions (lines | 26 bsr new_gun 
172-175 should then be added im- | 34 bsr move_gun 
mediately after the last of last | 39 bsr bulmov 
month’s sprite definitions (sprite 7). AT bsr rev_bul 

The REMs (;) should be removed | 51 bsr rev_bul 


lbytes mdv1_(name)_cde,address 
will then load the code into memory 
and ‘Call address’. 


Next month more procedural enhance- 
ments to bring the game up to professional 
standards. 


d7, (al) 3 Save new y position in bulposy 

* addq.w #3,dé6 3; Calculate Tip of bullet position 
* <¢ PALADIN >> bsr id_col 3; Tests for hit 

* beq no_hit ; 

* by frove.w #~1, (a0) j If hit then cancel bullet 

¥ cmp.b #19947 3} Tests for barrier hit 
* H 
* 
* 


FREER EERE RRR EERE EERE ERE REE R ERE ERE EEE stilbul move.b 


STEVEN HOLLYWOOD & IAN G WILLIAMS bls.s — natbhb 
and.w #$4F00,d2 

JIG REE RHEE EERE REE EEE ER ES ; beq bul _hit_bar 
bra endbomb H 
lea xpos,ad H 
lea ypos,al ; 
moveq #num_sp-1,d4 ; 
5 
, 
, 


3 Checks to see colour 
3 This explained in future issue 
13.5 This routine is the m/c equivalent of the basic Keyrow cammand 
14; ’ 
15 keyrow 
16 lea 


Loads pos. of x and y arrays (invader 
Positions) into a0 and al 


temp,as 
move.b dil,&(a3) 
moveg #17,d0 
trap #1 

rts 


Set a3 pointing to the data 
; Stores keyrow row to be read 
3; Store keyrow command no.in dO 
Through trap to OS 


nextst move.b d7,d5 
sub.b (at)+,d5 
cmp.b #10,d5 


bls.s poss 


Save hit pos. (y co-ord) in dS 
Subtract ist inv.position from d5 

If Inv. is closer then 10 pixels to 
3 where hit was recorded then poss/hit 
addq.l #2,a0 3 Increase y array pointer 

bra.s Q_next 
move.w d6,d0 
sub.w (a0)+,d0 
bpl.s not_neg 
neg.w dO 

cmp.w #10,d0 


This routine moves the gunbase across the screen & fires bullets ; Saves hit pos (x co-ord) in dé 


Subtract inv.x pos from dO 

These two lines convert dO (dist from 
3 hit) to a positive value 

If not within 10 pixels then 
bhi.s g_next try next invader 
move.w -(a0),d6 Remove 
move.b -(al),d7 Dead 
bsr blank_out Invader 
move.w #-1,(a0) Cancel invader from 
move.b #-1, (al) appearances 

bsr explode More about this soon! 
ié leek text for exerenities — zam,a3 Sound: See text - this is fun... 

y eq #17,d0 

No movmt if extreme left 


Moves gun 2 pixels left = . + Fut 
These next 5 lines c_score j Future issue.... 


4 lea inv_speed,a0 Check if this is the 
pa eee cmp.b #2, (a0) last invader 
right movement anes) nosey 
lea invnext,a0 
addq.b #8, (a0) 
bra new_screen 
subq.b #4,(a0) 
rts 
dbf d4,nextst 
cmp.b #25,d7 
bhi.s no_bus 
moveq #nemalt,d7 
lea baddyx,a0 
move.w (a0) ,d6 
H saver H 
; endbad H 
H explode j Future issue.... 
: #39,d0 3 Increase score 39 times 
, , 
5 


ove_gun 
moveq 
bsr.s 


#1,01 
keyrow 
btst #6,d1 
beq.s notfir 
bsr.s fire 
lea gunpos,a0 
move.w (a0) ,d0 
move.w d0,d2 
btst #i,dt 
beq.s gnl 
cmp.wW #3,d0 
ble.s gnl 
subq.w #2,d0 


’ 
j These lines read keyrow(1) i.e. 
’ 
s 
, 
’ 
j 
j 
j 
3 
j 
j 
j 
5 
btst #4,d1 H 
j 
i 
i 
i 
j 
j 
j 
5 
H 
H 
j 


test for a keypress 
j This checks for a fire(SB or JStik) 
If not then don't fire 


These lines load the gunposition 
into 40 
Gunpos. saved in d2 
3 Tests for left movt (cursor or Jstik) 


future 


beq.s gor 
cmp.w = #499,d0 
bhi.s gnr 
addqg.w #2,d0 
move.w dQ, (a0) 
moveq #8,d5 
move.w d0,d6 
move.b #240,d7 
bsr plot 
move.w d2,d6 
bra plot 


If yes, increase start pos. (lower) 


Stores new gun position in gunpos 
Sets up sprite code for a gun 
Sets dé to the new position 

Keeps gun at 240 on y axis 


Sets up new school of invaders 
If no, increase step speed 


Tests next invader 


These lines erase the Checks for mother ship hit 


old gun image If yes, then 


these lines 
delete the 


This routine initially positions and draws the gun base nother ship 


ewW_gun 
lea gunpos,a0 
move.W #256,d6 
move.w dé, (a0) 
move.b #240,d7 
moveg #8,d5 
bra plot 


Position of first gun - x-axis x 
Stores position morepts bsr inc_score 
Position of gun - y-axis ha — By 40,morepts ; 
it mber of gunbase ig er : 
bala i. sunken routine no_hit subq.w #3,d6 3 Replots bullet after failing to 
bra plot 3 explode by hitting anything 


i . 
H be i t initial iti # bullet and creates the 2 

H Ea Pie aad’ vereatiie pais bee Hear 3 Plots and unplots any bullet on the screen between on screen 
H t eee 


: j movements of invaders, etc. 
s 


fire 


$ 

lea bulposx,a0 Test to ensure no bullet on screen Fevibul 

tst.w (a0) = hg 

2 ok ante move.b bulposy,d7 

move.w d6, (a0) rie sb 

lea bulposy,a0 no_rev rts 

move.b #232,d7 - 

move.b d7,(aQ) 

moveq #905 

bsr plot 

lea zap,as 

goveq #17,d0 

trap #1 
no_fire rts 


bulposx,dé 
no_rev 


These two lines establish x-cord of 
j bullet & decide if it exists 

Loads y-position 

Set sprite number 

Unplot or plot 


} Copy gunbase pos. into bullet 
position 
These 3 lines 
establish the initial 
y positon of bullet 


Sprite code This routine tests the colour of a pixel specified by d&(x) and 


3 
s 
3 a7(y) and returns the data in d2 
_ , 
Sound:see text.. id_col 
movem.] dé-d7/a0-al,-(a7) 
bsr calc_addr 
lea mask_tab,a0 
add.b =. d2,d2 


3 Branch to calc_addr 

j 

; 
add.w d2,a0 i 

H 

; 

1 


This routine utilises a table 
of masks which cover each of 
the bits in the two bytes used 
in screen organisation 
(see text) 


This routine moves the bullets towards the descending aliens 


move.w (al) ,d2 

and.w (a0) ,d2 

movem.1 (a7)+,d6-d7/a0-a 
rts 


ulaov 
lea bulposx,a0 
move.w (a0) ,d6 
bai.s no_bul 
lea bulposy,al 
move.b (al) ,d7 
@oveg #9,d5 
bsr plot 


Loads x pos. of bullet into dé 


If negative pos.value then no bullet 


Load os. of bullet into d7 
ia ° =n These are sprite definitions and MUST be entered immediately below 


i 
3 
Sprite code of bullet 3 the sprite definitions given in last month's issue 
3 This branch unplots the old bullet ; Sprite #8 ses 

subq.b #1,d7 Moves bullet up one pixel 2 

cap.b 49147 Tests to see if top has been reached dc.w $1818,$3c24,$7e5a,$e7bd, $db7e, $bdtt,$7ett , StH 
bhi.s stilbul ; } Sprite #9 bomb 

move.w #-1, (a0) If top then cancel bullet dc.w $0808, $1010, $0808,$1010, $0808, $1010, $0808, $1010 
rts end 
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PORT 1 n 
JOYSTICK 

e.g. for RAMpack parce 

PORT 0 ADAPTORS 


e.g. for DISC i/f | 
Na 


CENTRONICS 
PRINTER 
INTERFACE 


DOUBLE EXPANDER 


CENTRONICS PRINTER INTERFACE £29.95 inc. 


* 12 month guarantee. : 
* Connects OL to any CENTRONICS compatible printer. 
* fully self-contained with 3 metre cable. 
* Plugs directly into SER1 port and directly into printer. 
* Fully compatible with QDOS, SuperBasic, and PSION packages. 


SCREEN DUMP £4.99 inc. 


* Copies OL screen image to printer. 
* Supplied on microdrive cartridge. 
* Contains other useful software. 


DOUBLE EXPANDER £39.00 inc. 


* Connects up to 2 expansion cards to QL. 
* Ideal for RAMpack and DISC interface combination. 


JOYSTICK ADAPTOR £4.99 inc. 


*4 Plugs into either CTL1 or CTL2. 
* For use with Atari/Commodore style joysticks. 


Lam 
Please contact your computer dealer or send your order 


with cheque to: : 
Sinclair and QL 


MOUSE — Call for details. 


Woodland Way, 
ACCESS 
orders 
Tel: (0272) 603871 x 210 rN welcome 


MICRACLE SYSTEMS LTD 
Avondale Workshops are Trade Marks of 
SINCLAIR Research Ltd 
Kingswood 
BRISTOL BS15 10L 
Prices include VAT and carriage 
QL COMPUTER (JS) ONLY £379 
LOW INSTANT PACKAGE QUOTES 


4 Microdrive carts Transform box for 20 carts ... 


10 Microdrive cartridges + Transforms box 


PRINTERS 
Brother M1009 (P) £178 | Mannesmanan Tally MT80+ (P) £209 
Shinwa CPA80 (P).... ... £219  TaxanKP810 (P) 
Smith Corona TP-1 (S).. ... £209 Quen Data 18cps daisywheel (P) £269 
Serial cable (S) £10 Parallel interface (P) 
Please call for lowest prices on most printers 


MONITORS (cables included) 
Microvitec CUB 1451/DQ3 £254 Philips V7001 hi-res monochrome £92 


MODEMS Please call Commpak OEL ??? 


DISK DRIVES 
MicroP 1st. 3.5” Drive + P.S. + Disk interface 720k formated 
MicroP 2nd. 3.5” Drive £169  QLDisk Interface ... 
Computamate 3.5” Dual 720k x 720k complete system......... ‘ 
Computamate 5.15” Dual 720K x 720K complete system... 
Computamate QL Disk interface 


Sinclair QL Tool kit... 
Sinclair QL Assembler 
%* ProjectPlanner * Entrepreneur »* DecisionMaker % Integrated Accounts 


STRONG COMPUTER SYSTEMS 


Bryn Cottage, Peniel, Carmarthen, Dyfed, SA32 7Du. 
Tel: (0267) 231246 for assistance anytime!!! 


QL COMMPAK 
MULTI STANDARD INTELLIGENT 


MODEM 


AND PRINTER CONTROLLER 


ONLY £140 INC. 
Available Now! 


Adds a second ‘Communications Processor’ to Your computer. 
Essential for PRESTEL operations on the Sinclair QL. 


Plugs into SER2 port of QL using QL serial cable (not supplied). 
Acoustic Coupler accepts phone handset for quick and _ simple 
connection to standard telephone. Direct Connect version available at £160 
inc. Acoustic Coupler may be converted to Direct Connect— Please Enquire. 


Modem speeds—300/300, 1200/75 (Prestel), 75/1200, 1200/1200 
Standards—Bell 103/113, CCITT V21, CCITT V23 
300 Baud Modes—Originate or Answer 
1200 Baud Modes—Standard or Equalized (for noisy lines) 


On board Microcomputer controls speed conversion, buffering and 

Modem operation. Recognises over 20 software commands with 

‘Help Menu’. EPROM firmware allows for future developments. In 

1200/1200 Mode, Micro uses ‘Packet’ techniques to avoid collisions 
and allows fast data transfer between COMMPAK Users. 


Printer mode provides Serial to Centronics conversion. Uses 
standard printer cable (available at £15 inc.) Modem ‘Log’ function 
copies 300 Baud line data to printer. 


Comes complete with instructions. Simple QL Terminal Emulation 
software available FREE if microdrive supplied, else £2. 


Please send for details or phone 0792 473697. 


Make cheques/PO's payable to COMMPAK DATA. Prices include 
VAT & p&p. Allow 14 days for delivery. 


COMMPAK DATA 


13 BEECHWOOD ROAD, UPLANDS, 
SWANSEA SA2 OHL 


Dick Meadows 


INTRODUCTION TO 
SUPERBASIC ON 
THE SINCLAIR QL 


with a foreword by Nigel Searle, 
Sinclair Research Ltd 


Explains SuperBASIC to both the newcomer to 
programming and the programmer unfamiliar with 
SuperBASIC. Covers features of SuperBASIC, ideas and 
methods for programming, inputting and outputting 
information, special functions, processing strings and 
much more. 

221 pages illustrated £6.95 paper 


ORDER FORM 
to HCP, 17-21 Conway Street, London WIP 6JD 

Please send me........ copy/ies of INTRODUCTION TO 
SUPERBASIC ON THE SINCLAIR QL (SBN: 09 158951 7) 
at £6.95 each POST FREE in the UK. 


| enclose my cheque/postal order for £.............. 
payable to Hutchinson Computer Publishing. 


Name 
Address 


please add £1.00 per copy for overseas orders IH il 
TIUUNUUUUUN AAA 
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As QL horizons broaden, so 


does its associated literature 


— Nicky Trevett explores this 


wider appeal. 


The QL user manual might be 
comprehensive and packed 
with information and detail, 
but Stepen Morris thinks it 
might also bewilder the new 
QL owner who has never 
touched a computer before. So 
just for novice (and nervous 
users), he has written Getting 
To Know Your Sinclair QL, 
published by Duckworth. 

This is a sort of ‘pre-manual’ 
manual which sets out to make 
the reader aware of the uses 
and potential of computers, 
de-mystifying the concepts and 
jargon along the way. It takes 
you carefully through the 
whole process of getting 
started, from unpacking the 
boxes and getting the 
microdrive out of its sleeve to 
taking care of the keyboard. 
It’s real nuts and bolts stuff 
which tells you literally 
everything you ever wanted to 
know about coming face to face 
with a computer for the first 
time. 

What is particularly likeable 
about the book is the way it 
ranges itself so emphatically 
on the side of the user. It is 
cautious, for example, about 
recommending the QL in the 
first place. The QL, it says, 
offers a sound investment for 
anyone thinking of buying a 
business computer who lacks 
previous experience of 
computers, but “whether it can 
become truly useful in the 
business world is yet to be 


The computer’s good and bad 
points are ruthlessly dissected 
and all jargon is expurgated— 
not even ‘hardware’ and 
‘software’ escape. 

Perhaps best of all, the book 
makes no bones about the 
dangers of trusting toa 
computer (“relying on the 
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computer can be disastrous”) 
and details at inordinate 
length everything that could 
conceivably go wrong, 
especially the mistakes that 
can lead to the loss ofa 
cartridge full of data and hours 
of painstaking work. All highly 
alarming, but it is meant to be, 
and too many books and 
manuals leave you to find this 
sort of thing out for yourself. 

Towards the end, the 
spotlight is turned on software. 
A couple of chapters on 
programming and languages, 
and software applications (the 
Psion family), attempt to put 
you in the picture without 
duplicating the manuals. 
Again, a thoughtful approach 
for the novice. 

This is a well-written and 
well thought-out little book for 
the beginner which mostly 
succeeds in filling the holes it 
perceives in the standard 
documentation, andis 
probably worth its £7.95 cover 
price. 


Artificial Interface? 


QL computing doesn’t have to 
be all business and games. You 
can, for example, always try 
dipping a toe into the 
fascinating world of Artificial 
Intelligence as perceived by 
Tim Hartnell in his latest work 
on the subject, Exploring 
Artificial Intelligence On Your 
Sinclair QL, published by 
Interface and priced at £6.95. 
(if you find yourself thinking, 
funny, that title rings a bell, 
then you’ve probably come 
across the same book tailored 
for another computer. That is, 
aslight change to the front 
cover and modified program 
listings). . 
Artificial Intelligence (AI) is 
avast, sprawling and at times 
controversial area of study 
which has been around for 
decades and only recently 
caught the imagination of the 
business world. Now home 
users have a chance to join in, 
and there’s a great deal of 
entertainment to be gained — it 
can’t really be put higher than 
that—from working through 
books like this and 
experimenting at a superficial 
level with some of the concepts. 
So what do you get for your 
£6.95? Like all of Mr Hartnell’s 
books, this one is highly 


readable and quite painless, 
with the emphasis on games, 
which are used to demonstrate 
the AI techniques discussed. 
There’s a lot of light-hearted 
discussion of the concepts of 
learning and reasoning — don’t 
look for heavy philosophy or 
moral reflections — all heavily 
laced with the background and 
history of serious AI research, 
and conscientiously annotated 
with references to major works 
and theses. 

Programs such as TicTac 
and Syllogy help show how 
computers can ‘learn’ and 
‘reason’, to an extent, and 
there are versions of the 
famous trail-blazing Shrdlu, 
the program which 
manipulates building blocks 
(here called Blockworld). The 
inevitable Eliza-clone, called 
Doctor, is also included and 
claimed to be one of the most 
complete ever published in 
BASIC (or to be more precise 
the QL’s SuperBasic). 

The way in whicha 
computer can be taught to 
search for and assess various 
related options, and decide on 
the best course of action, is 
demonstrated by along and 
tortuous program called 
Snickers, a sort of cut-down 
checkers. 

No book on Artificial 
Intelligence would be complete 
without a look at Expert 
Systems, a fast-developing 
offshoot from AI which is 
finding favour in the business 
world. Sure enough, we are 
referred to the well-known, 
highly successful Dendral 
program which is used 
worldwide to work out facts 
about molecular structures. 
Unfortunately, the program 
listings provided to show off 
expert system techniques are 
frivolous and disappointing. 

This book is indeed all about 
having fun. You get a rapid, 
sweeping and easily digestible 
introduction to a highly 
complex but engrossing topic, 
with plenty of amusing 
programs totry out, but not 
much more. Nothing is 
explored to any great depth, 
and there is a lot left out—like 
the importance of 
programming languages such 
as LISP and PROLOG, which 
can be highly effective in the 
building of systems to ‘learn’ 


BOOKMARKS 


and make deductions. But 
anyone new to the subject is 
sure to be hooked. 


All AtC 

With the release of ‘C’ 
compilers for the QL (GST et 
al), keen programmers casting 
about for information on the 
subject could try, in the 
absence of books devoted to C 
on the QL, two rather 
heavyweight guides from 
Prentice/Hall. 

The C Programming 
Language by Brian Kernighan 
and Dennis Ritchie, priced ata 
staggering £22.95 (it’s not even 
hard-backed), can at least 
boast the experience of the 
man who created C (Denise 
Ritchie) and implemented it on 
the Unix operating system on 


Digital Equipment 
Corporation’s PDP-11 
computers. 

Cis generally considered to 
be a general-purpose language 
which is not tied in to any 
particular application. At first 
glance it does not appear to 
havea great deal going for it, 
yet itis proving increasingly 
popular with professional 
programmers. Its lack of 
restrictions, and above all the 
fact that it is highly portable, 


have won it widespread favour. 


Both The C Programming 
Language, and Learning to 
Program in C, by Thomas 
Plum, set out to show you how 
to program in C. They doitina 
remarkably similar way. Both, 
for example, start witha 
tutorial-style introduction; 


BOOKMARKS 


Brian Kernighan and Dennis 
Ritchie assume some 
familiarity with basic 
programming concepts like 
variables, loops and functions, 
but Thomas Plum presupposes 
BH programming experience at 
all. 

Next, both books look at the 
features of C, covering them in 
much the same order and even 
numbering and subdividing 
the chapters in the same way. 
There are chapters on data 
types, operators and 
expressions, followed by 
statements and control flow, 
functions, pointers and arrays. 
The C Programming Language 
additionally looks into input 
and output and the Unix 
System interface, while 
Learning to Program inC 


helps to make your choice, 
Learning to Programin Cis 

Perhaps it simply goes to 
show how like-minded are the 
followers of C. 

The two volumes share one 
other important underlying 
assumption — that the reader 
has access to Unix-based DEC 
PDP-II minicomputers (costing 
many thousands of pounds). 
These are not books intended 
for home users. Thomas Plum 
aims to turn the reader into a 
“competent programmer ina 
real software environment”. 

Having said that, there is 
still a great deal of information, 
presented in a practical way 
through actual programs, for 
anyone seriously interested in 
getting to grips with the C 
programming language. Ifit 


includes a chapter on software 
development. 

less exhorbitantly priced —it 
costs £15.95. 


Be Prepared 

The book Logic, Algebra and 
Databases by Peter Gray is 
even more specialised. 
Published by Ellis Horward at 
£9.95, it “examines the 
applictions of logic 
programming and applicative 
programming to database 
through the database query 
languages”. Quite so. 

This is aimed at students, 
postgraduates and 
programmers who want to 
know more about database 
query languages, but anyone 
interested in logic and logic- 
based programs should find it 
of use. In particular, there isa 
great deal about the so-called 
fifth generation programming 
language PROLOG, and the 
book’s extensive discussion of 
logic, inference and list 
processing fills in some of the 
holes left by introductory books 
like Tim Hartnell’s Artificial 
Intelligence series. 

The style might be academic, 
but for an academic book on 
logic the tone is pleasantly 
informal. To make much sense 
of the content you would needa 
certain amount of knowledge 
of alanguage like Pascal, 
which can manipulate records. 
It would also help if you had 
some grounding in logic; the 
book includes an introduction 
to the Predicate Calculus and 
the Lambda Calculus, which is 
best understood if you at least 
know what they are. 

There is, however, some 
explanation of logic 
programming, followed by 
applicative programming and 
its development to functional 
programming, which is 
contrasted with methods used 
in languages like COBOL. Two 
classic database models are 
described (relational and 
Codasyl), and all the database 
query examples used are based 
on the same database — World 
Cup football matches — to point 
out the similarities and 
differences between 
languages. 

If you're interested in logic, 
and in relating logic to 
database query, this could be 
for you. 
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PHOTO BY TERRY BEDDIS 


ACHINE 


CopDET 


Adam Denning turns his attention 
to some 68000 practicalities 
and details modes of address. 


One of the most important concepts 
we have to grasp is that of the 
addressing mode. This describes the 
way in which the processor accesses 
the data it manipulates, and it’s a 
general rule that the more addres- 
sing modes a processor supports, the 
more versatile it is. The 68000 sup- 
ports a wide variety, as you would 
expect for such an advanced design. 

To meet the first few addressing 
modes, we'll write a little program to 
add two numbers (okay, it’s not much 
fun, but it does lead the way). 

If the two numbers we want to add 
are stored in memory locations 
$20000 and $20002, then we could 
write our program to add the two 
together like this: 


MOVE.W $20000,D1 
ADD.W $20002,D1 
MOVE.W D1,$20004 


What have we done here? The first 
instruction is a MOVE — and we 
know that it moves data from one 
place to another. The next part of the 
instruction (.W) signifies that we 
want to move a word of data (16 bits). 
Where does this data come from and 
where is it moved to? 

The two operands after the mne- 
monic give the clues to those ques- 
tions. The first operand, $20000, is 
known as the source, as this is where 
the 68000 will get the data from. The 
second operand, D1, must therefore 
be the destination. We can see that 
the destination is data register D1, 
but what exactly does the number 
‘$20000’ refer to in the source speci- 
fication? Well, assuming that the use 
of $20000 in the MOVE instruction 
refers to the contents of that address. 
Whether we used the address as the 
source or the destination, using it in 
this form in a MOVE instruction 
always refers to the contents of the 
address, not the physical value of the 
address itself. 

This is commonly referred to as 
absolute addressing, since $20000 is 
an ‘absolute’ address (meaning that it 
is not an offset from anything — 
$20000 really means memory loca- 
tion $20000). 

The next instruction on our prog- 
ram is an ADD, with the prefix ‘.W’ 
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signifying the use of word- 
long operands once more. 
The source is again 
obtained using absolute 
long addressing, and the 
destination is a data regis- 
ter. Notice how the des- 
tination register is D1, just 
as it was in the previous 
instruction. You may 
think this will overwrite 
the value we’ve just moved 
there. Yes it will, but in a 
way which is totally pre- 
dictable and under our 
control. The ADD instruc- 
tion takes the value speci- 
fied by the destination 
(which is the value we’ve 
just moved into D1 from 
location $20000), adds the 
value obtained from the 
source, and puts the result 
back into the destination. 

This means two instruc- 
tions have added our two 
numbers together and left 
the result in D1. We need 
some way of storing the 
result, so that we can look 
at it later, and use another 
MOVE instruction to put 
it into memory location 
$20004. Notice how this 
move uses exactly the 
opposite operations to our 
previous one — the source 
is found using data regis- 
ter direct addressing, and 
the destination is found 
using absolute long 
addressing. 

So now we have the 
result of our addition in 
location $20004, but it 
isn’t much use to us stuck 
up there. We need some 
way of looking at it, and 
the only way of doing this 
at the moment is to call the 
code from SuperBasic. In 
order to do this, we need to observe 
certain rules dictated by the Super- 
Basic interpreter. These tell us that 
data register DO is used as an error 
return register, which means that it 
must be zero on return to Basic to 
return correctly. 

There are lots of ways of setting a 
register to zero: we can use the 
special instruction CLR which does 
just that (CLR.L DO), or we can take 
the value of the register away from 
itself and put the result back into the 
register (SUB.L DO,DO), or we can 
use a useful little instruction called 
MOVEQ which only applies to data 
registers. This mnemonic stands for 
‘move quick’, and it allows us to put 
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any value between 0 and $FF into a 
data register in one quick instruc- 
tion. We must be aware of certain 
facts, though. MOVEQ ‘sign-extends’ 
the number we put into the data 
register, which means that any posi- 
tive 8-bit number (ie, between $00 
and $7F (0 and 127) is put into the 
entire 32 bits of the data register as 
just that value, while any negative 
8-bit numbers (ie, between $80 and 
$FF (-128 and —1) cause all the bits 
from bit 8 to bit 31 to be set to 1, 
making $FF become $FFFFFFFF, 
$FE become $FFFFFFFE and so on. 
Using MOVEQ to put 0 into DO, then, 
actually sets all 32 bits of DO to 0. 

Our final addition program now 
looks like this: 


MOVE.W $20000,D1 
ADD.W $20002,D1 
MOVE.W D1,$20004 
MOVEQ #0,D0 
RTS 


Notice how we put a ‘#’ before the 0in 
MOVEQ; this says that we are using 
the number zero rather than the 
contents of address zero. This is 
known as immediate addressing, as 
the number to be used immediately 
follows the instruction in memory. 

To be able to use our program, we 
need to put the machine code num- 
bers representing these instructions 
into memory, and also to POKE our 
numbers to be added into memory. 
This program will do the job: 

100 RESTORE 

110 addr = 131078 

120 FOR a = 0 TO 20 STEP 2: 

READ n: POKE_W addr + 


an 

130 REPeat loop 

140 INPUT #0; ‘First number,’ !n1 

150 FEU Te B; ‘Second number,’ 
n2 

160 POKE_W 131072,n1: POKE_ 
W 131074,n2 

170 CALL addr 

180 PRINT #0; ‘Result is:’ !PEEK_ 
W (131076) 

190 END REPeat loop 

200 DATA 12857,2,0 : REMark 
MOVE.W $20000,D1 


210 DATA 53881,2,2 : REMark 
ADD.W $20002,D1 
220 DATA 13249,2,4 : REMark 


MOVE.W D1, $20004 
230 DATA 28672,20085 : REMark 
MOVEQ #0,D0 ; RTS 
Try entering different numbers, even 
negative ones, for nl and n2, and see 
if you can explain all the different 
results you get. You'll find that most 
things are sensible, and any that 
don’t appear so at first can always be 
explained if we go back to two’s 
complement numbers. Also, remem- 
ber that we are adding words, so each 
number, including the result, is held 
in 16 bits. 


Next month — more illustrative programs 
and a look at QDOS to see how it can be 
handled using machine code. 


ALL ORDERS DESPATCHED SAME DAY 
SELLING PRINTERS SINCE 1980 ! 


DOT MATRIX 


EX VAT INC VAT 


BROTHER HRS £133.00 £152.95 


SHINWA CPA80 


FREE with all Printers. QL users Printers Guide. Getting the best 
from your printer is not easy ! 
We supply a FREE Booklet with all printers which explains how to 
obtain all the features available on your printer. Without this you 
could waste many hours. Buy else where and you'll pay far more 
and get far less. 


DISK DRIVES 


We stock and use ALL drives and interfaces available 
including MEDIC, CUMPUTAMATE and MICRO 
PERIPHERALS. For helpful impartial advice and 


EPSON RX80 
EPSON RX80F/T+ 
EPSON RX‘100F/T 
EPSON FX80 
EPSON FX100 


DOT MATRIX PLUS NEAR LETTER QUALITY 


KAGA KP-810 
CANON 1080A 
KAGA KP-910 
CANON 1156A 


SPECIAL OFFER £242.00 £243.80 


SPECIAL OFFER £245.00 £281.75 
SPECIAL OFFER £340.00 £391.00 


£185.00 £212.75 
£185.00 £212.75 
MICRO P DISK INTERFACE 
£347.00 £399.05 Q DISK INTERFACE 
£314.00 £361.10 
£425.00 £488.75. 3'2" DUAL DISK DRIVE 5 MB 


4," 
6245.00 £281.75 52". DUAL DISK DRIVE 1.5 MB 


£340.00 £391.00 PHILIPS 7502 GREEN 


3%” SINGLE DISK DRIVE 75 MB 
5%2”" SINGLE DISK DRIVE .75 MB 


MONITORS 


best prices contact us. 


£99.00 £113.85 
£129.57 £149.00 
£159.00 £182.85 
£298.00 £342.70 
£169.00 £194.35 
£347.83 £400.00 


£75.00 £86.25 


DAISY WHEEL 


£225.00 £258.75 
£325.00 £373.75 
£356.00 £409.40 


COLOUR PRINTERS 


EPSON JX-80 SPECIAL OFFER £450.00 £517.50 
CANON PJ1080A £425.00 £488.75 


QL RS232 INTERFACES 


MIRACLE SYSTEMS £32.50 £37.37 
SINCLAIR QL £334.00 £384.10 


QUENDATA 1120 
JUKI 6100 
EPSON DX‘100 


MICROVITEC_CUB 653 £220.00 £253.00 
FULL PACKAGE OFFER 


Sinclair QL. Microvitec Cub 653 
Epson RX80 F/T. 
Price includes all leads and interfaces. 
(Other printers also available) 
REC RETAIL (INC VA £1070.00 
OUR PRICE (INC VA £899.00 


SHOWROOM OPEN 9.00am to 6.00pm DAILY 
9.00am to 1.00pm SATURDAY 
Delivery Printers/Monitors (Securicor) £10.00 Other £1.00 


Printerland, Unit 27, Estate Buildings, Railway Street 
Huddersfield HD1 TJP 


Telephone Huddersfield 514105/512037 


QL COMPUTER DESK 


Throw away those silly little feet from Sinclair! Support your QL at 
recommended slope. Allows full access to MDVs and sockets. Soft rest for 
wrist. Matching black finish. £11.00 all inclusive by post. 


BROOMSPRING 
99 Broomspring Lane, Sheffield. Tel: 0742 737000 


HI-RES SCREEN DUMP FOR YOUR QL 


DEVELOPED BY LOTUS-SOFT 
* New enhanced version 2.0 with windowing facility * 
Features: x Epson or compatible printérs. + 100% 68000 
machine code. + Free Hexpoke program. * Links in with QDOS 
and SuperBasic (new Keyword added). 

* USER DEFINABLE PRINTING WINDOW & PRINTER POSITION * 
ve Loaded’ as resident procedure. +: Full error messages. 
vv ESCAPE key function. 

ONLY £9.95 INC. 

Send Cheque/PO/Access/Visa for £9.95 to: 
Positron Computing, 15 Central Precinct, Llanelli, 
Dyfed, SA15 1YF. Tel: 0554 759624 (SAE for details) 


INVESTORS! 


Track your shares with “STOCKMARKET MANAGER” from Portfolio Software 
Facilities include: ¢ Simple entry of purchases, sales, prices etc. @ Port- 
folio valuation — analysed by investment type-comparison ‘of performance 
against market. @ Calculation of % return on each investment. @ Assessment 
of Capital Gains Tax liability. ¢ Handles all investment types, including 
Traded Options. 
Orders/Cheques to: PORTFOLIO SOFTWARE, PO Box No. 15, London SW11 5RP 
Please send: “STOCKMARKET MANAGER” @ £39.95 incl. p&p. 
Information sheet (please enclose SAE) 


No. of copies 


Name 
Address 
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THREE 100% MACHINE CODE, FULL GRAPHIC, 
VERY FAST MOVING, ARCADE STYLE GAMES 
: 1. Merry Muncher 
2. Fire Tower 
3. Advance Invaders 


BLAIN SOFTWARE 


8 Berkeley Close, Staines, Middlesex, TW196ED 


DATAMANAGEMENT 


— leading the way with QL software 


SBUTIL (£9.00) —Possibly the last word in Basic programming utilities. 
BACKUP (£8.00) —An independent, fast and reliable backup to/from Mdv or 
Disk. 


TERMINAL (£12.50) —A full featured terminal package. 

CHARGEN (£10.00) —A comprehensive character generator. ; 

SBEXTRAS (£6.00) —Many extra features and procedures to add to SuperBasic. 

QLDIARY (£10.50) —A SuperBasic Diary package. 

QLLIFE (£6.00) —This M/L version for the QL’s graphics is the prettiest to 
date. 


) 
DATABOSS £10.50) —A user definable Database in SuperBasic. 

) 

) 


( 

MAILBOSS (£10.50) —A special version of DATABOSS for handlig those mailing 
lists. 

QLFED (£12.50) —If you ever needed to modify a file this is your program. 

ANIMAL (£10.50) —A game of ‘Think of an Animal’ for Archive — very 
instructive. 

PROJECT (£8.00) —A fast, pretty 3D presentation of various equations. 

FM (£12.50) —A file manager package for Disk/Mdv. Fast and effective 
file control. 


All 100% m/language, multi-tasking unless SuperBasic is stated. Prices shown include VAT 
& P/P, but add £1.99 per order for a mdv cartridge. 

Cheques or P/Os to DataManagement: 12 Larch Way, Haxby, YORK, YO3 8RU or 
telephone (0904) 760351 (anytime) for our latest list, which is growing daily. 

Have you written any good QL software. We are looking for the best software and are 
prepared to pay the best royalties. 

Our latest list and newsletter explains in much more detail. Write or phone now for your 
copy. We also have a number of ‘free bees’ such as SCREENCOPY, NEATLIST, 
DIRMAP, & FREEMEM which are distributed with orders. However, send a cartridge and 
a large SAE and we will send copies with your list and newsletter. 
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Drives Aport-High Capacity Low Cost 
Disk Drives for Ol and Micros 


With so many disk drives on offer, choosing can be a somewhat contusing and difficult exercise. On the surface they all seem to 
perform and look the same. Of course that’s not the case and what it all boils down to at the end of the day is the data storage 
reliability and the number of bytes of disk storage you get for every £ spent. 

Take the new range of professional 3.5 inch and 5.25 inch disk drive systems from Micro P. They are designed for use with QL and 
BBC Micros, housed ina rugged metal case, essential for screening from stray electrical fields which can reduce data storage reliability, 
and have their own power supply so as not to drain precious power from your micro needed for other less sufficient peripherals. 
Most important of all you get in excess of 452 bytes of disk storage per £ for the OL and 251 bytes for the BBC. 

A further added bonus of the Micro P drives is that they are available in the new 3.5 inch format which is undoubtedly 

set to become the standard. 

Not only do 3.5 inch drives take minimum space, quite often at a premium for the micro user, but they 

also use easily transportable pocket sized media and are automatically protected from dust and 

finger prints. 

Micro P are one of Europe’s largest independant importers of peripherals and combined 

with their in-house R&D and manufacturing facility you have the assurance of 

professional after sales back-up. Combined with this you have peace of 

mind that the drive is manufactured by the largest company in Japan, a 


BBC with PSU name synonymous with quality and reliability. 
5.25°400K DS40/80T 

ok The custom designed interface card, which can be purchased, 

DRIVE 1 £159 separately, plugs directly into the QL’s expansion port 

139* and can support up to 4 floppy disk drives giving 

\ DRIVE o£ BBC with PSU a total formatted capacity of 2.88 MBytes 

of disk storage. It also provides a range 


3.5°400K DS40/80T of resident commands. Complete 


i , 
prive 1 £159 year itlities disk, With 
DRIVE 2£139* 


its superb 
file 


QL with PSU 
3.5" 720K DS 80T 


DRIVE 1 £159* 
DRIVE 2£139* 


The drives, available 
in a choice of 3.5 inch 
or 5.25 inch, are based on the 

standard multibus, same as the OL, 
and connect directly to the BBC Micro 
fitted with the standard disk drive interface 


OL 


DOUBLE DENSITY 
DISK INTERFACE 


au £99" 


To: Keyaki, Enterprise House, 
44 Terrace Road, Walton-on-Thames 
Surrey KT12 2SD 


Please supply the following: 


facilities, 
disk & memory 


suis off OL Drive 2— 3.5” @ £159.85......... ree eesti Ales 
fs 

ere off BBC Drive 1—3.5”+PSU @£18285........ The I/F card can also be con- 

, 35 figured to emulate microdrives 
ne off BBC Drive 1 — 3.5 @ ETSI ES onnucs Se” endanibatioronen deeentl oeaee 
snamoes off BBC Drive 1 — 5.25”+PSU @ £182.85........ have been backed up to disk there is no 

; 7 need to re-configure. Utilising the disk drives 
deans off BBC Drive 2— 5.2 @ £159.86 |... enhances the speed of use, e.g. Quill takes only 6 
WU ITO cacesercirsess steamed asc degs ucsuedsksceisaceanSdouscsaetsvteates senonits te: leat 
Add *Prices do not include VAT 

MOSS veisaiaai cna sieiaysiaa letras dursutraawtetbonaneace eee rasactaeeneito ce, Telephone Credit Card Orders 
soe eesAeeeat budetausasbeesdeneneierrderieser, POStCOCE.....1ccceceeeeeee welcome. 
Teleoh Personal Collection welcome. 
CLE DITOME, cssswszaisicicenieisnseicnavienie:nisusineinsin seivtnwiweine Puuneleisjawewieasiee Open Monday to Saturday — 

Tick box for details of Instant Credit up to £1000 9.00 a.m. until 5.30 p.m. 
| eNnclOSE MY CHEQUE NO. viscecsssesssserssseccccecssesseee FOF Lu veecseceeeee £1000 instant credit, writtent details on bec habe 


Please charge my Access/Barclaycard No. 


Signature: 


Enterprise House 44 Terrace Road, Walton-on-Thames, 
TRADE & EDUCATIONAL ENQUIRIES WELCOME Surrey. KT12 2SD Tel: 09322 42777 


Micro P is a registered trade name 
Keyaki is a trading name of Micro Peripherals Ltd 


QL isa registered trade name of Sinclair Research Ltd 
QUILL isa registered trade name of Psion Ltd 


Each month, for a trial period, this column will contain details 
of readers’ programs that we are able to offer on microdrive. 


In return for a small administration charge (per program — including a royalty 
for the author), we will copy onto blank microdrives any or all of the featured 
programs. 

Each program will be a direct copy of the published listing, or an extended 
version of that listing where the program in question was too long to print in 
full (programs for which an abridged version has been published are marked 
with an asterisk). 

It must be stressed that we are not selling the software itself, nor providing 
any guarantee that it performs any particular function (though we do check 
every program that is to appear in QL User), we are merely offering a service 
to readers who wish to obtain QL User programs on drive rather than by 
typing them in straight from the page. 


HOW TO ORDER 


Listed below are programs which have appeared as listings inside QL User. 
Each entry includes a brief description, the author’s name, approximate size 
in mdv sectors and the price. 

Prices range from £1 to £5 dependent upon the size of the program and 
the time it takes to copy onto microdrive. 
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C 
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updated with new 
products and information. 
If you or your company are 
currently manufacturing 
hardware or supplying QL 


E::: month this directory is 


NST 


software and would like to be 
included within this directory, 
just send details to ‘QL User 
Reference Chart’, Dept SE, QL 
User, Priory Court, 
Farringdon Lane, EC1R3AU. 


HARDWARE INDEX 


TOTALTOBESENT £............ 


accross. I enclose a cheque/PO to the value of £............ (made payable to 
| QL User}. 

I understand that QL User only undertakes to SUPPLY these listings 
| (copied onto microdrive) and accepts no liability for their operation as 


defined by the author. Neither can QL User supply additional information 


| (any article reprints required must be ordered separately at £1 each 
| inclusive of post and packing). 


Le ee ee ee ee 
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| Brother, Shinwa, Epson, Kaga, 


| Please copy onto microdrive the programs above which I have indicated with | 


about any of the listings other than that originally printed in the magazine | 


Mannesman Tally, Canon, 
Daisystep, Smith Corona 


Strong Computer Systems 
0267 231246 


Zeal Marketing Ltd 
Technomatic Ltd 0246 208555 
012081177 
|| Epson, Kaga, Juki, Brother Modems 
Twickenham Computer Compak Data 
Centre 13 Beechwood Road, Uplands, 


_ _j}01891 4991 


To the right of each program entry is a small box, which you should mark I . 
with a bold cross if you want to order that program. - Monitors Kaga, Ensign, Canon 
Once you have put a cross next to all the programs you wish to have copied | Citadel Products Ltd Viglen Computer Supplies 
ae lig aba bison ee 7 Ld dg “i rlhi andsenditalong | 019511848 01 843 9903 
OL. User, MICRODRIVE EXCHANGE, Priory Court, om MBS Data Efficiency Zeal Marketing Ltd 
30-32 Farringdon Lane, EC1R 3AU. 0442 60155 0246 208555 
If you wish us to supply the drive, please add an extra £2.50 for every drive Kaga Brother, Epson, Canon, 
required and mark the order form appropriately. Microvitec PLC Daisystep 
[5 See ee ee ee ee SS SSS SS ae || 0274390011 I rf 
ORDER FORM || Microworld Computer & Canba qutertaces 
| oom ‘ Language Program Name Price Issue Size ! hs 2 ee 3671 863 Technology 
i d MB Fi i fi # é A ae % - 
| | | programmable tention cinta oe By BOT yy icrovitec, Philips, Sinclair | 9228323302 _ 
| | Rob Miles (B) 3Dscapes £1.00 May 20c) || Vision ae li 
| 4sometric Perspective representations of 3D Surfaces | Opus Supplies Ltd 
| Shergold & Tose (B) * Golf £2.00 May 300 || 017018668 Computamate Data 
V | From fairway to green on 50 different courses of varying difficulty | JVC Products 
| Williams & Holliday (AO) Paladi £5.00 A 80 F 2 11 
The base of per cau programming me. : : es invaders type game written cody machine OEE a. 7 5 7 ae i = tems L t d 
Bese See. (MB) Sprite Animation £2.00 Apr 320 || Strong Computer Systems ee 603871 
9 pe = machine code and SuperBasic that produces a versatile sprite designer and high | 0267 231246 Printerland 
| Microvitec, Philips 0484 514105/687875 
| a = (B) Pacman £1.00 Mar 200 Tech tic Ltd Sigma Research 
reasonably fast rendition of the famous arcade favourite ecnnomatic 
| Adam Denning {A0) File Probe £1.00 Mar = 2 0 |/ 012081177 231 Coldhams Lane, 
| etn oe arp to dump the contents of a file to any device in hex. Reveals any hidden | M icrouvitec, K aga Cambridge 
jar r 
sate acters for a zoe = a ee | Viglen Computer Supplies | Technology Research Ltd 
| File utilities which permit selective back-ups and deletions — in excess of a hundred files may be 01843 9903 0784 63547 
manipulated | Zeal Marketing Ltd pc naa 
Andy Carmicheal ——_(B) Hi-tech Sort £1.00 Feb 100 || 0246208555 89 283 478 
Highly efficient recursive sort based on C Hoare’s famous Quicksort method | Microvitec, Philips Zeal Marketing Ltd 
| PJ Smith (B) : DIY Adventure : £1.00 Feb 70 | 0246 208555 
A skeleton framework where you simply have to slot in the details to create your bespoke adventure Pri nters 
Mike N rt (B) Psu Edito £1.00 Feb 20 a H 
| iy hpschas basin house between a full — editor oF the QL’s somewhat wearin line editor | pert a Disk Sy stems 
Adam Denni (AQ) Multitaski £2.00  Dec/Jan 150 Computamate Data 
C | Two dite aon programs and one storm A will eae multitask on the QL = | Star = Peace 
| B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + | MicroPeripherals 0782 811711 
H Basic loader l 0256 473232 Compware 
Name Canon 0270582301 
7 Address || Microworld -| CST 
|| 0293 545630/0273 671863... 
| : ~ | 0223 323302 
A || Kaga, Epson, Smith Corona, 6 MedieDataGystenis Lid 
No of rdered Totalcost £............ || Shinwa, Microperipheral, ~« ae 
: . ee lere al co Omcciiies ofuih 0256 460748 
al sectors A MicroPeripherals 
? Printerland phe 
| (max200perdrive) ow... I Gabe 514105/687875 0256 473232 
ee | 
Noofdrivessent = ............ || Epson, Brother, Kaga,Canon, | Printerland 
jNoofdrivesrequired @ £250each £.......... i] uke 0484 514105/687875 
ps Strong Computer Systems | Quest 
G | Plus postage & packing £ 0.75 | 0267 231246 04215 66488 
| 


Swansea 


NT ACCESS 


| BOOKS 


Medic Data Systems Ltd 
0256 460748 


Strong Computer Systems 
0267 231246 


Memory Expansion 


Eprom Services 

0532 667183 

Medic Data Systems Ltd 
0256 52703 

PCML Ltd 

0372 67282/68631 

QL+ RAM cards 

Quest 

04215 66488 


Simplex Data Ltd 
01575 7531 


Extras 
Action Computer Supplies 
01903 3921 
Mains spike eliminator 
Eidersoft 
014781291 


Quicksoft 11 Joystick 
Management Science Ltd 
17 West Hill, London 

QL Case 


Power International 

0705 756715 

Mains spike eliminator 
Sigma Research 

231 Coldhams Lane, 
Cambridge 

Joystick Adaptor 

Sinclair Research 

0276 686100 

Power Supplies 

Transform Ltd (Dept QL) 
089 283 4783 

QL Dust Cover, Microdrive 
Storage Box, RS232 lead 
Viglen Computer Supplies 
01 843 9903 

Printer stand, disks, disk drive 
Zeal Marketing Ltd 

0246 208555 

Printer peripherals 


SOFTWARE INDEX 


Utility Programs 


Accountancy Software of 


Torquay 

Sinclair Research 

QL Cash Trader 

Computer One 

0223 86216 

Pascal, Forth, Assembler, 
Typing Tutor, Monitor 
Digital Precision 

91 Manor Road, London E17 
5RY (mail order) 

QL Sprite Generator, QL Super 
Monitor 


GST Computer Systems 


0954 81991 
QL Assembler, 68K-OS, 
c compiler 


Harcourt 
Sinclair Research 
QL Touch ‘n’ go 


Metacomco 
0272 428781 


Assembler, BCPL, Lisp 


MicroAPL 
016220395 

Positron Computing 
0554 759624 

Hi-res Screen Dump 


Printerland 
0484 514105/687875 
Metacomco Assembler 


Psion 
01 723 9408/0553 
Quill, Abacus, Easel, Archive 


Quest 
04215 66488 
Business Accounts 


Sinclair Research 

0276 686100 

QL Entrepreneur, OL Project 
Planner, QL Decisicén Maker 
Strong Computer Systems 
0267 231246 

TDI Software Ltd 

0272 742796 

USCD Pascal, USCD Fortran, 
Advanced Development Toolkit 


TR Computer Systems 
093 924 621 
QL Payroll 


Games 
Digital Precision 
91 Manor Road, London E17 
5RY (mail order) 
QL Super Backgammon 


| Eidersoft 


014781291 
QL Art 


Games Workshop 
01 965 3713 

D-Day 

Printerland 

0484 513105/687875 
Psion Chess 


Psion 
01 723 9408 
Psion Chess 


Sinclair Research 

0276 686100 

Psion Chess 

Talent Computer Systems 
041 552 2128 

The Lost Kingdom of ZKUL, 
WEST, GraphiQL 


Publishers 


Adder 

0223 277050 
Century 
01434 4241 
Collins 

01 940 7070 
Duckworth 
01 485 3484 
Granada 

01 493 7070 
Hutchinson 
01387 2811 
Interface 

9-11 Kensington High Street, 
London 
McGraw Hill 
0628 23431 
MicroPress 
0892 39606 
Melbourne House 
01 940 6064 
Prentice/Hall 
0442 58531 
Sunshine 

01 437 4343 


Book Titles 


68000 Assembly Language 
Programming 

Kane, Hawkins, Levanthal 
(Osborne/McGraw Hill £19.50) 


QL Gamesmaster 
Ewbank, James & Gee 
(Collins £7.95) 


Understanding the 68000 
Heller 

(Century Communications 
£7.95) 

Get More from the Epson 
Printer 

Curran 

(Collins £7.95) 

A QL Compendium 
Gandoff & Kinge 
(Addison-Wesley £7.95) 
QL Handbook 

Hartnell 

(Interface £7.95) 
Professional & Business 
Uses of the QL 


Lewis 
(Collins £7.95) 


BASIC Programming on the 
QL 

Cryer & Cryer 

(Prentice/Hall £7.95) 

Quick QL Machine 
Language 

Giles 

(Melbourne House £7.95) 


QL Abacus 
Spottiswoode 
(Century £8.95) 


The Working Sinclair QL 
Lawrence 

(Sunshine £6.95) 
Quantum Theory 

San, Katan & Rockman 
(Century £5.95) 


QL SuperBasic 
Wilson 
(MicroPress £6.95) 


QL Assembly Language 
Programming 

Opie 

(McGraw Hill £12.95) 

QL Games Compendium 
Hartnell 

(Interface £5.95) 


The QL Book of Games 
Hurley & Virgo 

(MicroPress £6.95) 
Introduction to SuperBasic 
on the Sinclair QL 

Meadows 

(Hutchinson £6.95) 


Advanced Programming 
with the Sinclair QL 
Gandoff 

(Hutchinson £6.95) 

QL Quill 

Simon & Spottiswoode 
(Century £7.95) 


QL Easel 
Spottiswoode 
(Century £7.95) 


QL SuperBasic 

Berk 

(Granada £6.95) 
Assembly Language 
Programming on the 
Sinclair QL 

Pennell 

(Sunshine £7.95) 


Developing Applications on 
the Sinclair QL 

Grace 

(Sunshine £6.95) 

Artificial Intelligence on the 
Sinclair QL 

Brain & Brain 

(Sunshine £6.95) 

Desk-Top Computing with 
the Sinclair QL 

Miles 

(Hutchinson £6.95) 
Introducing the Sinclair QL 
Marshall 

(Hutchinson £6.95) 

Word Processing with the 
Sinclair QL 

OReilly 

(Hutchinson £6.95) 


QL User/May 1985/61 


QL ror BUSINESS 
OWL Computer Training 


A programme of linked courses. 
Introductory & Advanced Applications. 


044 282 7302 
FREEPOST, TRING, HERTS. HP23 4BR. 


High speed resident m/c functions and procedures 


SORT integers/Floating/Strings. Like lightning sort 1000 
random FP no’s «1.3 secs. 
FILE LD/SV/RH/SH/SZ/MN/ASC/DEC/HEX/HEAP/HEAP-DA 
>1500 lines of fully documented assembly code. 
+ MORE + MORE + MORE + MORE + MORE + MORE 


FILEDUMP File handling utility. LOAD/FIND/CHANGE/ 
MODIFY/SAVE/PRINT/ABS/INFORM etc °80 files in memory 
at once. »500 lines of code. 


Both progs professionally produced and documented. For 
object code + fully documented source listing send your 
cartridge + GBP 9.95 or USD 11.50 to: 

T:mi SOFTRONIC, Suvikuja 3B14, 02120 Espoo 12, Finland. 


JOYSTICKS FOR OL 


Plugs straight into control port 1 or 2. 
NEEDS NO INTERFACE OR ADAPTER — £7.99 each or £15 for two. 
Add 50p p&p. 
Two joysticks plus CONCENTRATION (an addictive 1-4 player game) on 
microdrive cartridge for only £23.95 inclusive. Game only: £10.95 inclusive. 


Send to: COMPUTER SUPPLIES 
146 Church Road, Boston, Lincs. PE21 0JX. 


WDSoftware 


FOR THE QL: 


WD Utilities (flp1) (£10 on 5.25” Disc) 
Improved version for the CST/Computamiate Floppy Disc System. Tested with dual discs 
and four extra microdrives, more than 100 files on a disc without overflowing screen and 
backed-up with one command. The FAST way to move your (unprotected) software on 
and off disc! State 40 or 80 track when ordering. 

WD Utilities (3rd ed) (£7.50 on Microdrive) 
Up to 60 files for one-screen DiRectory, one-key LOAD, PRINT or COPY (namesakes 
protected). Prune old files to release space (one key DELETEs a file). Easy multiple 
FORMATTting for extra reliability. Toolkit to make dated, numbered modules in program 
development. Control 6 extra microdrives (add on Spectrum ones)! 

Ref QL (1st ed) (£1 as an extra, £3 alone [disc or mdv]) 

100+ useful QL references in ARCHIVE file. 
Prices include postage in Europe. 

WDSoftware, Hilltop, St Mary, Jersey. Tel: (0534) 81392 


QL FORTH 


Full implementation of 79-STANDARD FORTH with double number 
extensions. FORTH is much faster than BASIC and uses less memory. 
System includes a full screen editor, QDOS calls, QL graphics, utilities and 
many extensions to the standard. All features documented. 
£15 from: 
R. E. Jackson, 15 Edgehill, Llanfrechfa, Cwmbran, 
Gwent NP44 8UA 


Prove to your friends that your computer is really useful. 
Plan the garden or the house with our data banks and programs 
on shrubs and house plants. ONLY £11.95 


Shrub bank and planner £11.95 
House plant bank and planner £11.95 


Name... 
Address oii 


sun. Postcode 


For details or payment by credit card 097 423223 
To: SuperPlant Software, Llangeitho, Tregaron, West Wales, SY25 GOY 
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QDISC PRICES FALL 


Single Dual 
3.5” or 5.25” 360K System £308 £475 
3.5” or 5.25” 720K System £349 £529 


QDISC I/F alone £149. Ten 5.25” disks in plastic case £29.95 
QDISC “Systems” include, power supply. all cables. typeset manual, VAT & delivery 
Telephone for prices of MEDIC DATASYSTEMS QL Disc Drives 


Microvitec CUB with cable......... £265 Microdrive °4 packs’ in wallet .... £9.99 
Zkul or West Adventures....... £19 ADDER Macro Assembler £34.95 
Psion Chess ..... ‘ wees £19 Metacomco Assembler . £39.95 
QL Art Graphics Design ..... £15.95 Computer One Assembler £29.95 
Sinclair Toolkit ... w.. £24.95 Computer One Monitor .. £24.95 
Sinclair Cash Trader... ... £69.95 HISOFT MONQL ...... woes COAQS 
QL Serial Cable............. , £15395 Compware Toolkit ....... £14.95 
Computer One FORTH ... .. £39.95 Computer One Pascal £39.95 


All prices include VAT and delivery 
57 REPTON DRIVE 
HASLINGTON, CREWE CW1 1SA 


QQNNEWAA LE) TEL: (0270) 582301 


SPACE TREK 


Areal-time text adventure set in the distant future. Navigate and explore the 
galaxy, seeking out and boarding alien spacecraft while trading with friendly 
planets for weaponry and supplies. 

£7.99 inc. p&p and full documentation. 

New GRAPHICS VERSION now available, still only £7.99 or £9.99 for both. 
Cheque or P.O. to: 

Swansoft, 164 Vicarage Road, Morriston, Swansea 
SA6 6DT. 


(Orders dealt with promptly) 


yw vx FANTASIA ADVENTURE x xx 


An original and demanding text adventure for the QL set in an unpredictable 
and dangerous world of ancient cities, complex cave systems and harsh 
deserts. Features include: 

@ 200 + locations, @ detailed descriptions, @ save/restore game facility. 

@ real-time problems, @ a ‘help’ feature, @ comprehensive instructions, 

@ hint sheet on receipt of as.a.e. ALL THIS FOR ONLY £8.50 (p&p free). 
Send cheque/postal order to: 


S.B. SOFTWARE, 20 ST. NICHOLAS ST., DISS, NORFOLK 


Terminal Emulator with file 
transfer & VT52 emulation 
68000 Assembler/Editor 
3 Games on 1 cartridge—sprite 
Shooting (M/Code), Lander (M/Code) 
Moon landing 
Cheques, P.O.s to: QCODE, 42 Swinburne Road, 
Abingdon, Oxon OX14 2HD. 
or tel: 0235 28359 any time 


£15.00 


£12.95 
£4.95 


, 


AD INDEX 


4 Systems 
Adder Publishing 
Business Micro & Comms Ltd 38 


Care Electronics 
Cenprime Ltd 
Commpak Data 
Computamate Data 
Products 


Shadow Software 
Sigma Research .... 
Silicon Express 
Strong Computers 


Talent Software 


Metacomco.. Transform 


Micro APL 


AT YOUR FINGERTIPS FROM COMPUTER ONE 
PASCAL £39.95 


Computer One PASCAL is a powerful implementation of this classic programming language. 
Produced specifically for the QL, this package provides a professional and highly educational 
programming system. Complete with comprehensive 100 page manual, this is the ultimate 
language package that no QL enthusiast can do without. 

FEATURES: x Full screen editor * QL graphics and sound extensions 

* Example programs * Complete 100 page User Guide * Produce stand-alone programs 
x Full implementation close to |SO-standard * Typically 15x faster than BASIC 


FORTH £39.95 


A full implementation of the latest FORTH-83 standard with full integration to QDOS. This 
compiled language runs very fast and allows you to produce fast machine code application 
programs for your QL. 

FEATURES: * FORTH-83 system * Forth screen editor * 100-page manual 

* Produce stand-alone programs * QL-graphics and sound extensions 

* Example FORTH programs * FORTH macro-assembler 

x Multitasking extensions with many powerful features 


ASSEMBLER £29.95 NEW: Now includes FREE linker 


COMPUTER ONE Assembler is a comprehensive assembler program toolkit comprising a full 
68008 assembler and full screen editor. This is a professional multitasking assembler and is 
written in machine code for speed and compactness. 

FEATURES: x 68008 Assembler x Full syntax checking * Full screen editor 

x Assembler linker * Comprehensive User Manual * Integrates to Pascal and Superbasic 
* INCLUDE file facility * Full assembler listing 


MON ITOR £24.95 (£19.95 when purchased with the Assembler) 


The Computer One MONITOR is a powerful multitasking, multi-window debugging monitor. The 
MONITOR is an invaluable software tool for anyone developing software for the QL and is 
ideal for use in conjunction with the Computer One Assembler. 

FEATURES: * Memory disassembly and display * Trace code in RAM or ROM 

* Breakpoints and watchpoints * Full channel management * User defined screen layout 

* Set and display registers * Alter memory * Move and search memory »* Full job control 

x Ability to monitor several jobs simultaneously 


TYPING TUTOR | computer ONE | 
£19.95 | 


SCIENCE PARK, MILTON ROAD,CAMBRIDGE 
Let your Sinclair QL teach you to type! Computer 
One’s Typing Tutor is a fast, easy and enjoyable r 
way of learning true touch-typing on your QL. | 
FEATURES: x Self-paced tutorials Address a 


| Name 
| 
* Speed and accuracy diagnosis | eee = | 


* Interactive colour graphics * User Guide 


Tick Order 


ASSEMBLER 
: TYPING TUTOR 


Method of Payment- 
| by cheque or P.O. (no cash) and made 


_ t 


qq 


payable to COMPUTER ONE, or by charge card. 
Access Card No. 


T T T 
Peaeee REEEE 
Total amount £ 
enclosed with order 


OL/5/85 


Credit card sales: UK buyers only. 
Please allow 28 days for delivery. Inc. VAT & p&p 


eee SC ee 


Explore the ancient dwelling- place of 
the’ Dwarves — where the Wizard guards 
thelastprecioussecret. _ 

Aclassic and complex text adventure 
with hundreds of locations and a huge 
vocabulary. Set in real-time with traps, 
tasks, puzzles and mazes — and a special 
note-pad feature to aid you. 


“the quality of the game is superb” 
eis Adventurer 


PRICE 


£19,95 


+ 50p postage and packing — 


